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An  Introduction  to  MAPSEP  Changes  for  the  Earth  orbital  version 


Because  of  the  limited  amount  of  time  and  experience  in  low  thrust  Earth 
orbital  missions,  many  MAPSEP  changes  were  intended  to  provide  (1)  a basic 
capability  to  analyze  anticipated  solar  electric  missions,  and  (2)  a founda- 
tion for  future,  more  complex,  modifications.  Some  of  the  major  changes  from 
the  October,  1974,  interplanetary  version  of  MAPSEP  are  summarized  below.  In 
addition  to  these  routines,  most  input  and  output  related  routines  were 
affected,  such  as  DATMAP,  BLKDAT , DETAIL  (REFSEP),  DEFALT  (GODSEF),  etc. 
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FOREWORD 


MAPSEP  (Mission  Analysis  Program  for  Solar  Electric  Propulsion) 
is  a computer  program  developed  by  Martin  Marietta  Aerospace,  Denver 
Division,  for  the  NASA  Marshall  Space  Flight  Center  under  Contract 
NAS8-29666.  MAPSEP  contains  the  basic  modes:  TOPSEP  (trajectory 

generation),  GODSEP  (linear  error  analysis)  and  SIMSEP  (simulation). 
These  modes  and  their  various  options  give  the  user  sufficient 
flexibility  to  analyze  any  low  thrust  mission  with  respect  to 
trajectory  performance,  guidance  and  navigation,  and  to  provide 
meaningful  system  related  requirements  for  the  purpose  of  vehicle 
design. 

This  volume  is  the  third  of  three  and  contains  a description  of 
the  internal  structure  of  MAPSEP  including  logical  flow.  Prior 
volumes  relate  to  analytical  program  description  and  to  operational 


usage. 
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1.0  INTRODUCTION 

MAPSEP  (Mission  Analysis  Program  for  Solar  Electric  Propulsion) 
is  intended  to  provide  sufficient  flexibility  to  analyze  a variety 
of  problems  related  to  trajectory  performance,  guidance  and  naviga- 
tion. However,  since  low  thrust  technology  is  never  static,  future 
changes  are  expected  to  the  models  and  algorithms  contained  in  MAPSEP. 
This  volume,  along  with  the  program  listings,  is  intended  to  provide 
the  programmer /analyst  with  sufficient  information  about  MAPSEP 
structure  to  enable  him  to  make  suitable  modifications.  The  program 
itself  is  structured  such  that  computational  modules  are  as  self- 
contained  as  possible  thus  facilitating  their  replacement.  It  is 
highly  recommended  that  the  programmer/analyst  review  the  two  preced- 
ing volumes  (analytical  and  user's  manuals)  before  making  program 
changes  in  order  to  understand  the  reasoning  behind  many  of  the  models 
and  analysis  techniques  that  are  coded. 
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2.0  MACROLOGIC 

MAPSEP  is  composed  of  three  primary  modes:  TOPSEP,  GODSEP  and 
SIMSEP  (Figure  2-1).  A fourth  primary  mode,  REFSEP,  is  actually  a 
submode  of  TOPSEP  in  a functional  sense.  In  addition,  a secondary 
mode,  TRAJ , is  used  by  all  four  primary  modes  to  provide  integrated 
trajectory  information.  As  described  in  both  the  Analytic  and  User’ 
Manuals,  the  primary  modes  each  serve  a specific  function  in  the  mis 
sion  and  system  design  sequence. 


Figure  2-1.  MAPSEP  Modes 


All  of  the  routines  and  structure  of  MAPSEP  are  constructed  to 
minimize  core  storage  (thus  reducing  turn-around  time  and  computer 
run  cost)  yet  retain  the  flexibility  needed  for  broad  analysis  re- 
quirements. Furthermore,  routines  are  built  as  modular  as  possible 
to  reduce  the  difficulties  in  future  modifications  and  extensions. 
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2.1  Input/Output 

The  user  interface  or  input  to  MAPSEP  is  primarily  through 
cards  using  the  NAMELIST  feature,  with  supplementary  means  depend- 
ing  upon  mode  and  function  (Table  2-1).  All  modes  require  the 
$TRAJ  namelist  which  defines  the  nominal  trajectory  and  subsequent 


Mode 

INPUT 

OUTPUT 

Namelist  Formated  Tape 

Cards  (or  disc) 

Punched  Tape 

Cards  (or  disc) 

TOPSEP 

$TRAJ  None  STM 

$T0PSEP 

None  STM 

GAIN 

« 

GODSEP 

$TRAJ 

$G0DSEP  Event  STM 

$GEVENT  Data  GAIN 

Sta  tes 

Covariances  STM 

Guidance  GAIN 

SUMARY 

SIMSEP 

$TRAJ  None  STM 

$SIMSEP 

fGUID 

Statistics  STM 

GAIN 
SUMARY 

REFSEP 

$TRAJ  Print  STM 

Events 

THRUST  STM 

array 

TABLE  2-1.  MAPSEP  User  Input/Output 


mode  usage.  However,  if  recycling  or  case  stacking  is  performed 
it  is  not  necessary  to  input  $TRAJ  again  unless  desired.  The  second 
namelist  required  for  each  mode  corresponds  to  mode  peculiar  input 
and  bears  the  name  of  that  particular  mode.  Additional  namelist, 
formated  cards,  and  tape  input  are  generally  optional.  Besides 
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the  standard  printout  associated  with  MAPSEP,  auxiliary  output  can 
be  obtained  which  will  facilitate  subsequent  runs. 

From  an  operational  viewpoint,  MAPSEP  employs  a maximum  of  six 
data  files  (Table  2-2).  Most  of  these  files  are  not  normally  saved 
from  run  to  run,  the  primary  exceptions  being  STMFILE  and  GAINFUL 
used  in  GODSEP. 


I/O  File 
Number 

File 

Mode  Usage  | 

TOPSEP  AND 
REFSEP 

GODSEP 

SIMSEP 

TAPE  3 

STM 

$TRAJ 

namelist 

$TRAJ  namelist, 
trajectory  and 
state  transition 
matrix  data 

$TRAJ 

namelist 

TAPE  4 

GAIN 

a-priori  covar- 
iances and 
filter  gain 
matrices 

$GUID 

namelists 

TAPE  5 

INPUT 

input  data 

input  data 

input  data 

TAPE  6 

OUTPUT 

printout 

printout 

printout 

TAPE  7 

PUNCH 

- 

punched 

covariances 

punched 

statistics 

TAPE  8 

SUMMARY 

trajectory 

summaries 

event  data 
summaries 

$ SIMSEP  { 

namelist 

TABLE  2-2.  Data  Files 


2.2  Overlay  Structure 

The  structure  of  MAPSEP  is  organized  into  three  levels  of 
"overlays"  which  are  designed  to  minimize  total  computer  storage. 
At  any  given  time,  only  those  routines  which  are  in  active  use  are 
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loaded  into  the  working  core  of  the  computer.  The  main  overlay 
(Figure  2-2)  is  always  in  core  and  contains  the  main  executive, 

MAPSEP,  and  all  utility  routines  that  are  common  to  the  three  modes. 
The  primary  overlays  contain  key  operating  routines  of  each  mode, 
that  is,  those  routines  which  are  always  needed  when  that  particular 
mode  is  in  use.  Also  included  as  a primary  overlay  is  the  data 

initialization  routine,  DATAM,  where  $TRAJ  namelist  is  read,  trajec- 

• 

tory  and  preliminary  mode  parameters  are  initialized,  and  appropriate 
parameters  are  printed  out. 

The  secondary  overlays  contain  routines  which  perform  various 
computations  during  a particular  operational  sequence.  Included  are 
data  initialization  routines,  analgous  to  DATAM,  which  operate  on 
mode  peculiar  input  and  perform  mode  initialization.  An  example  of 
core  usage  in  the  changing  overlay  structure  may  be  provided  by  a 
standard  error  analysis  event  sequence.  Error  analysis  initializa- 
tion is  performed  by  the  overlay  DATAG.  Transition  matrices  are  then 
read  from  the  STM  file,  the  state  covariance  is  propagated  to  a 
measurement  event,  and  the  overlay  MEAS  is  called,  which  physically 
replaces,  or  overlays,  the  same  core  used  previously  by  DATAG. 
Similarly  at  a guidance  event,  overlay  TEAJ  will  replace  MEAS  to 
compute  target  sensitivity  matrices  and  overlay  GUID  will  then 
replace  TRAJ  to  compute  guidance  corrections.  Overlay  switching  is 
performed  internally  and  is  transparent  to  the  user. 
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MAPSEP 


Figure  2-2. 


UTILITY 


STRUCTURE 
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2.3  Subroutine  Hierarchy 

Each  major  overlay  is  supported  by  a number  of  routines,  some 
of  which  are  contained  in  that  overlay,  others  are  in  higher  over- 
lays. Figures  2-3,  2-4,  2-5,  2-6,  and  2-7  illustrate  the  subroutine 
hierarchy  for  the  major  overlays  TRAJ , TOPSEP , GODSEP,  SIMSEP,  and  > 
REFSEP,  respectively.  Multiple  calls  to  subroutines  and  entry  points 
Yiot  shown,  but  may  be  found  in  the  detailed  subroutine  descrip- 
tions (Chaper  3).  The  hierarchies  also  do  not  distinguish  between 
routines  called  from  different  overlays. 

2.4  Blank  Common 

One  convenient  feature  of  the  CDC  6000  series  computer  (on 
which  MAPSEP  was  developed),  is  the. ability  to  specify  the  location 
in  core  where  blank  common  is  loaded.  This  allows  blank  common  to 
be  loaded  behind  the  longest  secondary  overlay  to  be  loaded  for  the 
current  mode.  Thus,  the  length  of  blank  common  may  be  adjusted 
merely  by  changing  the  amount  of  core  requested  for  the  job.  The 
resultant  convenience  factor  is  a core  saving  on  many  runs.  Wherever 
possible,  large  arrays  whose  dimensions  vary  as  a function  of  input 
parameters  are  loaded  in  blank  common.  Each  mode  in  its  data  overlay 
computes  the  locations  of  these  arrays  as  required  by  the  input. 

Each  mode  starts  using  blank  common  from  the  first  word,  and  defines 
for  the  TRAJ  overlay  the  first  available  word  of  blank  common  it 
may  access.  TRAJ  stores  all  information  evaluated  for  integration 
steps  in  blank  common.  For  an  example  of  the  disparity  in  blank 
common  lengths  required  for  different  runs,  the  sample  error 
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Figure  2-3.  TRAJ  Subroutine  Hierarchy 
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Figure  2-4,'  TOPSEP  Subroutine  Hierarchy 


10 


G0DSEP 


C0VP 

DATAG 

DYN0 


■MASSIG 


MEAS 


SETEVN 

SETGUI 

STMGEN 


DYN0 

STMRDR 

PR0P 

DEFALT 

INPUTG 

0UTPTG 


— FXLTR 

MEAS PR 

MN0ISE  r 


t0BSERV 
PCNTRL 

— © 

^2^ 

— 0 


CARKER 

STMUSE 

DIMENS 

ESLE 

NMLIST 

PPAK 

1 ESCHED 

I MSCHED 

GAINF 

GAINUS 

INVSQM 

LC0RREL 
PRINTT 


CYEQEC 

PARSTA 


Figure  2-5.  G0DSEP  Subroutine  Hierarchy 
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Figure  2-5.  G0DSEP  Subroutine  Hierarchy  (Continued) 
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Figure  2.6  SIMSEP  Subroutine  Hierarchy 
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Figure  2-7 . REFSEP  Subroutine  Hierarchy 


CYEQEC 
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analysis  included  in  the  User* 8 Manual  (Vol.  II  Sec.  3.2.2)  requires 
5184  decimal  or  12100  octal  words  of  blank  common*  The  same  run 
without  guidance  would  require  only  2304^  (4400 0)  words  of  blank 
common.  A T0PSEP  run  which  does  no  targeting  or  optimization  — , 
merely  integrates  a reference  trajectory  — requires  less  than  100 
words  of  blank  common. 

2.5  Program  Loading 

The  recommended  usage  of  MAPSEP,  which  also  minimizes  computer 
core  for  a given  run,  is  to  load  only  those  overlays  and  related 
routines  which  are  necessary  for  the  run.  This  is  performed  by 
Satisfying”  from  a master  library  file  which  contains  all  of  the 
MAPSEP  routines.  In  this  case  the  deck  necessary  to  run  MAPSEP 
consists  only  of  the  overlay  structure  and  the  input  data  decks. 

The  advantage  is  a direct  result  of  not  having  to  load  all  utility 
routines  in  the  main  overlay.  Instead,  the  utility  routines  are 
loaded  only  in  the  overlays  where  they  are  used.  In  addition,  blank 
common  can  easily  be  set  to  the  size  necessary  to  handle  specific 
mode  runs,  thus,  reducing  further  the  overall  core  requirements. 
Figure  2-8  illustrates  core  utilization  when  satisfying  from  a 
library  f lie . 

If  a library  file  is  not  used,  then  the  utility  routines  would 
be  loaded  after  the  I/O  buffers  in  Figure  2-8  and  before  the  primary 
overlays.  Although  the  core  required  for  each  primary  overlay  would 
be  smaller,  the  total  core  (utility  + primary)  would  be  greater. 
Furthermore,  blank  common  would  start  at  the  end  of  the  last  routine 


Figure  2-8.  Core  Utilization  (with  library  file) 
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(DAXAS)  so  that  the  overall  core  penalty,  if  the  entire  program  is 
loaded  at  once,  would  be  approximately  3k  to  20k,  depending  upon 
the  operating  mode. 


For  those  users  who  can  vary  the  amount  of  blank  common  storage  in 
their  runs,  a guideline  to  estimate  the  total  MAPSEP  core,  requirements 
is  given  below.  Blank  common  length  is  related  directly  to  the  dimen- 
sion of  the  dynamic  state  (NDIM)  used  in  transition  matrix  (STM)  com- 
putation, and,  the  total  augmented  (knowledge)  state  (NAUG).  The  values 
of  program  and  "blank  common"  must  be  added  to  compute  the  total  decimal 
core  for  a CDC  6500,  Other  operating  systems  must  scale  these  requirements 
appropriately. 


TOPSEP:  program  « 23400 

blank  common  = 800  + 68(N)+(N) 


(N  = number  of 

control  para- 
meters) 


GODSEP:  program  = 23900 

blank  common  = 100  + 9 (NDIM) 

“100+9  (NDIM) 2 + 
5 (NAUG)2 
= 100  + 13  (NAUG) 


(if  STM  created) 
(if  STM  used) 

(if  PDOT  used) 


SIMSEP:  program  1 = 39100 

blank  common  = 900  + N(NAUG)2 


(N  = number  of 
guidance 
events ) 


REFSEP: 


program  + blank  common 


21000 
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2 . 6 Labeled  Commons 

The  labeled  common  blocks  are  grouped  according  to  the  principal  overlays 
in  which  they  are  used:  MAPSEP,  TOPSEP,  GODSEP,  and  SIMSEP.  The  type  of  each 
variable  will  be  specified  as  follows: 


Type Designation 

Real  R 

Integer  I 

Logical  L 

Hollerith  H 

Assigned  G0  T0  S 

Statements 

2 3 2 

All  units  will  be  in  km,  km/sec,  days,  radians,  kg,  RW,  km/sec  , or  km  /sec 
unless  otherwise  noted. 

The  following  index  of  common  blocks  is  intended  to  facilitate  their  location 


by  the  reader. 


Common 

Principal  Overlay 

Page 

CtfNICS 

MAPSEP 

17 

C0NST 

MAPSEP 

16-B 

CYCLE 

TOPSEP 

27 

DATAGI 

GODSEP 

35 

DATAGR 

GODSEP 

36 

DIMENS 

GODSEP 

36 

DYN0S 

SIMSEP 

51 

EDIT 

MAPSEP 

17 

ENC0N 

MAPSEP 

17 

EPHEM 

MAPSEP 

17 

GRID 

TOPSEP 

27 

GUIDE 

GODSEP 

38 

IASTM 

MAPSEP 

18-A 

IS  IM1 

SIMSEP 

51 

I SI  M2 

SIMSEP 

52 

KKFC0N 

GODSEP 

39 

LABEL 

GODSEP 

39 

L0CATE 

GODSEP 

40 

L0GIC 

GODSEP 

41 

MBA  SI 

GODSEP 

42 

ME  A SR 

GODSEP 

44 

PRINT 

TOPSEP 

28 

16-B 


Common 

Principal  Overlay 

Pa  Re 

PRINT 

TOPSEP 

28 

PRINTH 

TOPSEP 

28 

PR0PI 

GODSEP 

46 

PR0PR  ' 

GODSEP 

46 

SCHEDI 

GODSEP 

47 

SCHEDR 

GODSEP 

49 

SIMLAB 

SIMSEP 

52 

SIM1 

SIMSEP 

53 -A 

SIM  2 

SIMSEP 

53-B 

ST0REC 

SIMSEP 

53 -C 

TARGET 

MAPSEP 

18  -B 

TIME 

MAPSEP 

19 

T0P1 

TOPSEP 

28 

T0P2 

TOPSEP 

32 

TRAJ1 

MAPSEP 

19 

TRAJ  2 

MAPSEP 

22 

TRKDAT 

MAPSEP 

26 

TUG 

TOPSEP 

34 

W0RK 

MAPSEP 

26 

2.6.1  MAPSEP  Labeled  Commons 

Most  common  blocks  that  appear  in  MAPSEP  primarily  are  used  to  save  in- 
formation created  by  the  overlays  DATAM  and  TRAJ . Other  common  blocks  that 
appear  in  MAPSEP  are  used  to  transmit  information  from  the  Conic  subroutines. 


a)  Common/O0NST/program  constants_ 


Name 

Dimension 

Type 

Definition 

AU 

1 

R 

149597893.  (km/AU) 

BIG 

1 

R 

io20 

ECEQ 

3x3 

R 

Transformation  matrix  from  Earth  equatorial 
to  Earth  ecliptic  coordinates 

F0P 

1 

R 

io‘15 

F0V 

1 

R 

io-25 

17 


Name 

Dimens  ion 

Type 

Definition 

GHZER0 

1 

R 

Greenwich  Hour  angle  at  launch 

0MEGAG 

1 

R 

6 . 300388099  Earth  rotation  rate  in  rad/day 

PI 

1 

R 

3.14159 (PI) 

RAD 

1 

R 

57.29  ....  (deg/rad) 

SMALL 

1 

R 

10-20 

TM 

1 

R 

86400.0  (sec/day) 

b)  Common/C0NICS / Oscula  ting 

conic  parameters 

Name 

PV 

Dimension 

3 

Type 

Definition 

R 

Eccentricity  unit  vector 

QV 

3 

R 

Unit  vector  orthogonal  to  WV  and  PV 

WV 

3 

R 

Angular  momentum  unit  vector 

RM 

1 

R 

Position  Magnitude 

VM 

1 

R 

Velocity  Magnitude 

RDV 

1 

R 

t_  ■ V 

H 

1 

R 

Angular  momentum  magnitude 

P 

1 

R 

Semi-la tus  rectum 

c)  Common/EDIT/ future 

modification  storage  

Name 

EDIT 

Dimens  ion 
30 

Type 

Definition  

zi 

R 

Miscellaneous  storage  array;  intended  for  use 
by  temporary  modifications  until  permanent 
storage  (labeled  and  blank  common)  is  arranged 

I ED  IT 

20 

I 

'Miscellaneous  storage  for  integer  variables. 

LED  IT 

20 

L 

Miscellaneous  storage  for  logical  variables. 
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d)  Common/ENC0N /local  variables  for  subroutine  ENC0N  e_PP 

Common /EP HEM/  ephemeris  constants 


Name 

CECC 

Dimension 
4 x 10 

Type 

R 

uerinicion 

Eccentricity  constants  of  the  planets 

CXNC 

4 x 10 

R 

Inclination  constants  of  the  planets 

cmean 

4 x 10 

R 

Mean  anomaly  constants  of  the  planets 

C0MEG 

4 x 10 

R 

Longitude  of  the  ascending  node  constants  of 
the  planets 

C0MEGT 

4 x 10 

R 

Longitude  of  periapsis  constants  of  the  planets 

CSAX 

2 x 10 

R 

Semi-major  axis  constants  of  the  planets 

DJ1900 

1 

R 

Julian  Date  of  January  0.5,  1900 

EMN 

15 

F. 

Lunar  ephemeris  constants 

J2 

1 

R 

J2  zonal  harmonic  (oblateness) 

PLANET 

11 

H 

Hollerith  label  for  the  planets 

PMASS 

11 

R 

Planetary  gravitational  constants 

PRAD1S 

11 

R 

Planetary  radii 

SMASS 

1 

R 

Solar  gravitational  constant 

SPHERE 

11 

R 

Planetary  SOIs 

S RADIS 

1 

R 

Radius  of  the  sun 

SUN 

1 

H 

Hollerith  label  for  the  sun 

?)“  Common /IASTM/ Sensitivity 

Mitrix  Tarameters 

IASTM 

1 

I 

Flag  designating  method  of  computing  targeting 
sensitivity  matrix 

IJH 

2x30 

I 

Array  of  flags  identifying  active  controls 

LI STAR 

6 

I 

Array  of  flags  identifying  active  targets 

THETA 

6x20 

R 

Sensitivity  of  final  state  to  changes  in  thrust 
controls 

PHI 

6x6 

R 

Sensitivity  of  final  state  to  changes  in  initial 
state  (STM) 
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_g)_  Conrawn/TARGET /OscuJ.a^ing__C£nic_Cond_i_tiori^ 


Name  Dimension 


VCA  1 

CA  1 

TCA  1 

BDT  1 

BDR  1 

TSI  1 

VHP  1 

SMA  1 

ECC  1 

XINC  1 

0MEGA  1 

S0MEGA  1 

XMEAN  1 

TA  1 

FI  1 

B 1 

BV  3 

TAIM  1 

SV  3 

REQ  3 

VEQ  3 

RFA  1 

EQLAT  1 


R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 


Definition 

Speed  at  closest  approach. 

Radius  of  closest  approach 
Time  of  closest  approach 
B • T 
B . R 

Time  of  sphere  of  influence  crossing 

Hyperbolic  excess  velocity 

Semi-major  axis 

Eccentricity 

Inclination 

Longitude  of  the  ascending  node 

Argument  of  periapsis 

Mean  anomaly 

True  anomaly 

Hyperbolic  anomaly 

B-vector  magnitude 

B-vector 

Theta  aim  (angle  between  the  B-vector  & T-axis) 
S-vector  (unit  vector  in  direction  of  VHP  vector) 

Equatorial  geocentric  position  vector 
Equatorial  geocentric  velocity  vector 
Apoapsis  radius 

Equatorial  geocentric  latitude 
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_(g) Common  / TARG ET /O^c u 1 in^  Conic_  Conditions 

Definition 


Name 

Dimension 

EQLON 

1 

R 

TFA 

1 

R 

VFA 

1 

R 

PEREOD 

1 

R 

Equatorial  geocentric  longitude 
Time  of  apoapsis  crossing 
Apoapsis  velocity 
Orbital  period 
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h)  Common/TIME/time  parameters 


Name  Dimension  Type 

EP0CH  1 R 

TCP  1 R 

TDUR  1 R 


TEND  1 R 


TEVNT  1 

TRCA  1 

TREF  1 

TS0I  1 

TSTART  1 

TST0P  1 


R 

R 

R 

R 

R 

R 


_ Definition 

Julian  Date  of  launch 

Total  CP  time  required  to  integrate  a trajectory 

Trajectory  termination  time  from  launch  in 
seconds 

Trajectory  termination  time  from  launch  in 
days 

Trajectory  event  time  in  seconds 
Time  of  closest  approach 

Trajectory  start  time  from  launch,  in  seconds 
Time  at  the  sphere  of  influence  of  the  target  body 
Trajectory  start  time 
Actual  trajectory  termination  time 


Common/TRAJl/tra j 

ec  tory 

Name 

Dimens  ion 

Ty,P,e. 

ACC 

1 

R 

ALPHA 

1 

R 

APERT 

3 x 12 

R 

APR1M 

3 

R 

AT0T 

3 

R 

B0DY 

3 

H 

DRMAX 

3 

R 

ENGINE 

30 

R 

FLX 

1 

R 

FLXD0T 

1 

R 

propagation  parameters 

Definition 

Integration  step-size  scale  factor 

Inverse  semi-major  axis  of  the  reference  conic 

Gravitational  acceleration  vectors  due  to  the 
perturbing  bodies 

Gravitational  acceleration  vector  due  to  the 
primary  body 

Total  differential  acceleration  vector 

Hollerith  label  of  the  planets  included  in  the 
integration 

Maximum  deviation  from  the  reference  conic 

Array  that  defines  the  thrust  and  power  subsystems 
Cumulative  flux 
Flux  rate 
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.Name  Dimens  ion  Type 


Definition 


FRGA 

1 

R 

Fraction  of  the  semi-major  axis  of  the  target 
planet  to  begin  closest  approach  tests 

GJ2 

6 

R 

Partial  deviatives  of  state  wrt  J2 

GM11 

3 

R 

Matrix  of  partial  derivatives  for  transition 
matrix  integration 

GM12 

3 

R 

Matrix  of  partial  derivatives  for  transition 
matrix  integration 

GM21 

3 

R 

Matrix  of  partial  derivatives  for  transition 
matrix  integration 

GM22 

3 

R 

Matrix  of  partial  derivatives  for  transition 
matrix  integration 

GT 

3 

X 

3 

R 

Matrix  of  partial  derivatives  for  transition 
matrix  integration 

GTAU1 

3 

X 

3 

R 

Diagonal  matrix  of  inverse  correlation  times 
(first  process) 

GTAU2 

3 

X 

3 

R 

Diagonal  matrix  of  inverse  correlation  times 
(second  process) 

Gil 

3 

X 

3 

R 

Matrix  of  partial  derivatives  for  transition 
matrix  integration 

G12 

3 

X 

3 

R 

Matrix  of  partial  derivatives  for  transition 
matrix  integration 

G22 

3 

X 

3 

R 

Matrix  of  partial  derivatives  for  transition 
matrix  integration 

PHAS 

4 

R 

Thrust  policy  phasing  angles 

PITCH 

1 

R 

Thrust  pitch  angle 

QN0ISE 

6 

X 

6 

R 

Matrix  of  process  noise 

RCA 

1 

R 

Local  variable  used  in  TRAJ 

RPACC 

3 

R 

Acceleration  vector  due  to  radiation  pressure 

RST0P 

1 

R 

Desired  stopping  radius 

SCD 

1 

R 

Solar  cell  degradation  factor 

SCMASS 

1 

R 

Initial  spacecraft  mass 

scmvar 

1 

R 

Initial  spacecraft  mass  variation 

STATEO 

8 

R 

First  three  elements  are  the  initial  position 
vector 
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Name 

Dimension 

TyPe 

TCPI 

1 

R 

THRACC 

3 

R 

THRUST 

10  x 40 

R 

TN0ISE 

6 

R 

UENC 

3 

R 

UENCM 

1 

R 

UP 

3x12 

R 

UREL 

3x12 

R 

URELM 

12 

R 

UTRUE 

3 

R 

UTRUEM 

1 

R 

VENC 

3 

R 

VENCM 

1 

R 

VP 

3 x 12. 

R 

VREL 

3 x 12 

R 

Definition 

Second  three  elements  are  the  initial  velocity 
vector 

Seventh  element  is  the  position  magnitude 

Eighth  element  is  the  velocity  magnitude 

CP  time  at  the  beginning  of  the  integration 

Acceleration  vector  due  to  thrust 

Array  used  to  define  the  operation  of  the 
thrust  subsystem 

First  three  elements  contain  thrust  noise  for 
the  first  process 

Second  three  elements  contain  thrust  noise  for 
the  second  process 

Reference  conic  position  vector 

Reference  conic  position  magnitude 

Position  vectors  of  all  the  bodies  included  in 
the  integration 

Position  vectors  of  the  spacecraft  relative  to 
all  the  bodies  considered  in  the  integration 

Magnitudes  of  UREL 

S/C  position  vector  relative  to  the  primary 
body 

S/C  position  magnitude  relative  to  the  primary 
body 

Reference  conic  velocity  vector 

Reference  conic  velocity  magnitude 

Velocity  vectors  of  all  the  bodies  considered 
in  the  integration 

Velocity  vectors  of  the  spacecraft  relative  to 
all  the  bodies  considered  in  the  integration 
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Name 

Dimension 

Type 

Definition 

VRELM 

12 

R 

Magnitudes  of  VREL 

VTRUE 

3 

R 

S/C  velocity  vector  relative  to  the  primary 
body 

VTRUEM 

1 

R 

S/C  velocity  magnitude  relative  to  the  primary 
body 

WP0WER 

1 

R 

Power  available 

XPRINT 

1 

R 

Print  interval 

YAW 

1 

R 

Thrust  yaw  angle 

ZK 

3 

R 

Direction  cosines  of  the  reference  star 

j)  Common/TRAJ2 /Trajectory  Flags  _ _ __  _ _ 

Name 

Dimension 

Type 

Definition 

IAUGDC 

10 

I 

Array  of  flags  used  to  augment  the  state  for 
transition  matrix  or  covariance  integration 

I CALL 

1 

I 

Flag  used  to  initialize  TRAJ  or  to  initialize 
TRAJ  and  to  start  integration  or  to  continue 
integration  from  the  previous  time 

IENRGY 

1 

I 

Flag  that  determines  the  kind  of  power  sub- 
system 

IE VENT 

1 

S 

Local  variable  used  in  TRAJ 

IEVNT1 

1 

S 

Local  variable  used  in  TRAJ 

IEVNT2 

1 

s 

Local  variable  used  in  TRAJ 

IEVNT3 

1 

s 

Local  variable  used  in  TRAJ 

IEP 

1 

I 

Flag  used  to  locate  information  about  the 
ephemeris  body  (1  = Sun,  2 = Earth,...) 

IM0DE 

1 

I 

Submode  designation  in  T0PSEP 

I NIT 

1 

I 

MAPSEP  initialization  flag 

INTEG 

1 

I 

Flag  used  to  determine  the  type  of  equations 

to  be  integrated 
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Name 

Dimension 

Type 

Definition 

INTEG2 

1 

S 

Local  variable  used  by  TRAJ 

INTEG3 

1 

S 

Local  variable  used  by  TRAJ 

IPFLAG 

1 

I 

Flag  used  to  designate  a control  phase  change 

IPHASE 

1 

S 

Local  variable  used  in  TRAJ 

IPHASO 

1 

s 

Local  variable  used  in  TRAJ 

IPHAS1 

1 

s 

Local  variable  used  in  TRAJ 

IPHAS2 

1 

s 

Local  variable  used  in  TRAJ 

IPLACE 

1 

s 

Local  variable  used  in  TRAJ 

IPRI 

1 

I 

Flag  used  to  locate  information  about  the 
primary  body 

IPRINT 

1 

I 

Flag  used  to  manipulate  the  trajectory  print 
options ’ 

IPRT 

1 

s 

Local  variable  used  in  TRAJ 

IPRTl 

1 

s 

Local  variable  used  in  TRAJ 

IRECT 

1 

I 

Flag  used  to  control  rectification 

ISCD 

1 

I 

Flag  used  to  activate  solar  cell  degradation 
from  f lux 

ISTEP 

1 

I 

Number  of  integration  steps  taken 

ISTMF 

1 

I 

Flag  used  to  control  STM  file  use 

IST0P 

1 

I 

Flag  used  to  set  the  trajectory  termination 
logic 

ITEST 

1 

s 

Local  .variable  used  in  TRAJ 

XTP 

1 

I 

Flag  used  to  locate  information  about  the 
target  body 

ITRAJ 

1 

I 

Local  variable  used  in  TRAJ 

JPFLAG 

X 

I 

Flag  used  to  designate  a primary  body  change 

JPHAS1 

1 

s 

Local  variable  used  in  TRAJ 

JPHAS2 

1 

s 

Local  variable  used  in  TRAJ 

J2FLG 

1 

I 

Flag  used  to  activate  J2  (oblateness) 
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Name 

JPHAS3 

Dimension 

1 

Type 

S 

Definition 

Local  variable  used  in  TRAJ 

JTEST 

1 

s 

Local  variable  used  in  TRAJ 

KST0P 

1 

s 

Local  variable  used  in  TRAJ 

KTRAJ 

1 

I 

Flag  used  to  designate  whether  to  test  for 
control  phase  changes 

KUT0FF 

1 

I 

Flag  used  to  designate  the  actual  trajectory 
stopping  criteria 

LPRINT 

1 

s 

Local  variable  used  in  TRAJ 

'L0CAL 

1 

s 

Local  variable  used  in  TRAJ 

L0CDM 

1 

I 

Location  of  the  output  mass  variation  in 
blank  common 

L0CDT 

1 

I 

Location  of  the  temporary  derivatives  in 
blank  common 

L0CDY 

X 

I 

Location  of  the  nominal  derivatives  in  blank 
common 

L0CET 

1 

I 

Location  of  the  integration  event  time  in 
blank  common 

L0CFI 

1 

X 

Location  of  the  F matrix  in  blank  common 

L0CF0 

1 

I 

Location  of  the  covariance  to  be  integrated 
in  blank  common 

L0CH 

1 

I 

Location  of  the  integration  step-size  in  blank 
common 

L0CM 

1 

I 

Location  of  the.  output  mass  in  blank  common 

L0CPR 

1 

I 

Location  of  the  integration  print  time  in 
blank  common 

L0CPT 

1 

I 

Location  of  the  actual  print  time  in  blank 
common 

L0CR 

X 

I 

Location  of  the  stored  position  magnitudes  in 
blank  common 

L0CS 

X 

I 

First  location  in  blank  common  that  can  be 
used  by  TRAJ 
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Name  Dimension 

L0CT  1 

L0CTC  1 

L0CTE  1 

L0CYC  1 

L0CYP  1 

L0CYT  1 

L0CX  1 


MEQ  1 

MEQS  1 

MEQ8  1 

ME VENT  1 

M0DE  1 

MPLAN  1 

MST0P  1 

NB  11 

NB0D  1 

N0ISED  1 


Type  Definition 

I Location  of  the  stored  trajectory  times  in 

blank  common 

I Location  of  the  output  transition  matrix  or 

covariance  in  blank  common 

I Not  used 

I Location  of  the  nominal  integrated  solution 

in  blank  common 

I Location  of  the  intermediate  integrated 

solution  in  blank  common 

I Location  of  the  temporary  integrated  solution 

in  blank  common 

I Location  of  the  trajectory  time  in  blank 

common 

I Total  number  of  equations  to  be  integrated 

I Dimensions  of  the  augmented  transition  matrix 

or  covariance 

I MEQ  minus  8 

I Flag  used  to  set  event  detection  logic 

I Flag  used  to  set  the  MAPSEP  mode  of  operation 

(T0PSEP,  G0DSEP,  SIMSEP) 

I Number  of  bodies  included  in  the  integration 

S Local  variable  used  in  TRAJ 

I Planet  codes  of  the  bodies  to  be  included  in 

the  integration 

I Number  of  bodies  in  NB 

I Flag  used  to  turn  off  the  noise  for  the 

simulation  mode 
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Name  Dimension 

Type 

I 

Definition 

NPHASE 

1 

Flag  to  test  for  primary  body  changes 

NPRI 

1 

I 

Planet  code  of  the  primary  body 

NPRINT 

1 

S 

Local  Variable  used  in  TRAJ 

NRECT 

1 

I 

Number  of  rectifications  executed 

NST0P 

1 

S 

Local  Variable  used  in  TRAJ 

NTP 

1 

I 

Planet  code  of  the  target  body 

NTPHAS 

1 

I 

Number  of  the  current  control  phase 

k ) C oiranon  /TRKDAT  / 

— 

Tracking  Data 

ELVMIN* 

1 

R 

Minimum  elevation  angle  for  tracking 

I0BS* 

1 

I 

Location  in  STAL0C  of  astronomical  observatory 

KARDS* 

1 

I 

Number  of  formatted  print  schedule  cards  fol- 
lowing the  #TRAJ  namelist 

NSTA* 

1 

I 

Number  of  S/C  tracking  stations 

PITCHI* 

1 

R 

Moment  of  inertia  about  pitch  axis 

R0LLI* 

1 

R 

Moment  of  inertial  about  roll  axis 

SPHL0C 

1 

L 

Flag  for  determining  coordinate  system  of  station 
location 

STAL0C 

3x9 

R 

Station  location  coordinates 

stardc 

3x9 

R 

Star  direction  cosines 

YAWI* 

1 

R 

Moment  of  inertia  about  yaw  axis 

* Variables 

exclusive 

to  the 

REF SEP  mode 

1)  Common/W0RK/ 

— 

Working  Storage 

W0RK 

200 

R 

Array  used  as  local  variables  to  conserve 
core  locations 

IW0RK 

50 

I 

Integer  local  variables 
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2.6.2  TOPSEP  Common  Blocks 


a)  _C0MM0N /CYCLE /TOPS EP_  Cycle  Fla£ 


Name Dimension Type Definition 

ICYCLE  1 I Mode  cycle  flag. 

= 0,  Do  not  store  namelist  varia- 
bles on  disc. 

= 1,  Store  namelist  variables  on 
disc . 


b)  C0MM0N/GRID/ Blank  Common  Locations 


Name 

Dimension 

Type 

Definition 

L0CE1 

1 

I 

Blank  common  location  of  the  target 
errors  associated  with  the  first 
step  of  the  control  grid. 

L0CE2 

1 

I 

Blank  common  location  of  the  target 
errors  associated  with  the  second 
step  of  the  control  grid. 

L0CEM1 

1 

I 

Blank  common  location  of  the  target 
error  indices  associated  with  the 
first  step  of  the  control  grid. 

L0CEM2 

1 

I 

Blank  common  location  of  the  target 
error  indices  associated  with  the 
second  step  of  the  control  grid. 

L0CEN 

1 

I 

Blank  common  location  of  the  nominal 
trajectory  target  errors  in  the  grid 
mode. 

L0CF1 

1 

I 

Blank  common  location  of  the  perform- 
ance indices  associated  with  the 
first  step  of  the  control  grid. 

L0CF2 

1 

1 

Blank  common  location  of  the  perform- 
ance indices  associated  with  the 
second  step  of  the  control  grid. 
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c)  C0MM0N/PRINT/Printout 

Parameters 

' — — - — — - — — — 

Name 

Dimension 

Type 

Definition 

CNTR0L 

20 

R 

Initial  values  of  all  possible  con- 
trols other  than  thrust  controls. 

ETL0UT 

6 

R 

Target  tolerances  in  print-out  units 

G0UT 

20 

R 

Performance  gradient  in  print-out 
units . 

H0UT 

10x22 

R 

Perturbation  array  in  print-out 
units. 

KNTR0L 

20 

H 

Hollerith  names  of  controls  in 
CNTR0L. 

S0UT 

120 

R 

Sensitivity  matrix  in  print-out 
units . 

TAR0UT  6 

d}  C^MM0  n7pFi  NTH  /Printout 

R 

Labels 

Desired  target  values  in  printout 
units . 

Name 

Dimension 

Type 

Definition 

LABELT 

6 

H 

Hollerith  names  of  chosen  targets. 

LABEL 

25 

H 

Hollerith  names  of  all  possible 
targets . 

e)  C0MM0N/T0P1/TOPSEP  Parameters  - 

Real  Variables 

Name 

Dimension 

Type  

Definition 

BT0L 

1 

R 

Tolerance  on  control  bounds. 

CHI 

1 

R 

In  plane  Av  direction  angle  at 
injection. 

CNVRTT 

6 

R 

Conversion  constants  from  input 
units  to  internal  units  for  selected 
targets . 

RPO 

1 

R 

Initial  periapsis  radius 

RAO 

1 

R 

Initial  apoapsis  radius 

XINCO 

1 

R 

Initial  orbital  inclination 
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Name 

Dimension 

Type 

Definition 

CNVRTU 

20 

R 

Conversion  constants  from  input 
units  to  internal  units  for 
selected  controls. 

CTHETA 

1 

R 

Cosine  of  optimization  angle. 

DELVO 

1 

R 

Injection  AV  . 

DFMAX 

1 

R 

Maximum  increase  allowed  in  the 
cost  index  (F)  per  iteration. 

DPS  I 

6 

R 

Target  error  to  be  removed  during 
current  iteration. 

DP2 

1 

R 

Estimated  region  of  linearity  in 
the  control  space. 

E 

6 

R 

Target  errors  of  the  current  tra- 
jectory. 

EMAG 

1 

R 

Target  error  index. 

EPS0N 

1 

R 

Scalar  multiple  for  control  pertur- 
bations . 

ET0L 

6 

R 

Target  tolerances. 

ETR 

6x6 

R 

Array  of  target  errors  of  the  refer- 
ence and  all  trial  trajectories 
evaluated  during  a single  iteration 

F 

1 

R 

Performance  index  of  the  current 
trajectory . 

FTR 

6 

R 

Vector  of  performance  indices  of 
the  reference  and  all  trial  trajec- 
tories evaluated  during  a single 
iteration. 

G 

20 

R 

Performance  gradient. 

GAMA 

1 

R 

Scale  factor  providing  the  best  con 
trol  change. 

GAMMA 

6 

R 

Vector  of  trial  trajectory  control 
change  scale  factors. 

OMEGAO 

1 

R 

Initial  longitude  of  the  ascending 
node 
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G 10x22  R Control  perturbation  array. 

HMULT  20  R Vector  of  scalar  multiples  of  the 

H array  to  determine  the  second 
step  of  all  controls  in  the  control 
grid. 

0PTEND  1 R Cosine  of  the  optimization  angle 

which  is  used  to  test  convergence 
in  the  targeting  and  optimization 
mode . 


0SCALE 

1 

R 

Scale  on  the  performance  index  when 
simultaneously  targeting  and  opti- 
mizing. 

PCT 

1 

R 

Percentage  of  the  target  error  to 
be  removed  during  an  iteration. 

PRTURB 

20 

R 

Vector  of  control  perturbations; 
summary  of  H array. 

PSI 

1 

R 

Out  of  plane  A.V  direction  angle 
at  injection. 

PI 

6 

R 

Vector  of  net  cost  values  for  the 
reference  and  all  trial  trajectories 
evaluated  during  a single  iteration. 

P1P2 

6 

R 

Vector  of  combined  target  error 
indices  and  net  cost  values  for  the 
reference  and  all  trial  trajectories 
evaluated  during  a single  iteration. 

P2 

6 

R 

Vector  of  target  error  indices  for 

the  reference  and  all  trial  trajec- 
tories evaluated  during  a single 
iteration. 


S 

6x20 

R 

Target  sensitivity  matrix. 

STATR 

8x6 

R 

Array  of  initial  states  for  the 
reference  and  all  trial  trajectories 
evaluated  during  a single  iteration. 

SOMEGO 


1 


R 


Initial  argument  of  periapsis. 
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Name 

Dimensions 

Type 

Definition 

ST0L 

1 

R 

Test  variable  for  determining  line- 
arly dependent  columns  of  the 
weighted  sensitivity  matrix. 

TARGET 

6 

R 

Vector  of  desired  target  values. 

TARN0M 

6 

R 

Target  values  evaluated  for  the 
reference  trajectory. 

TARPAR 

6 

R 

Target  values  of  the  most  recently 
generated  trajectory. 

TART0L 

25 

R 

Vector  of  all  possible  target 
tolerances . 

TARTR 

6x6 

R 

Target  values  of  the  reference  and 
all  trial  trajectories  evaluated 
during  a single  iteration. 

TL0W 

1 

R 

Limit  of  target  error  index  below 
which  optimization  only  is  per- 
formed . 

TUP 

1 

R 

Limit  of  target  error  index  above 
which  simultaneous  targeting  and 
optimization  is  discontinued  and 
targeting  only  is  initiated. 

U N 

20 

R 

Selection  of  controls  for  the 
specified  mode  run. 

UWATE 

20 

R 

User  input  weights  on  controls. 

VP  ARK 

1 

R 

Circular  parking  orbit  velocity 
magnitude. 

WE 

6 

R 

Vector  of  target  weights. 

XMM 

1 

R 

Mean  motion  of  s/c  in  parking  orbit. 

PRO 

1 

R 

Radial  distance  at  injection. 

PINC 

1 

R 

Geocentric  ecliptic  inclination  at 
injection 

PTO 

1 

R 

Time  of  injection 

XMEANO 

1 

R 

Initial  mean  anomaly 

TRUANO 

1 

R 

Initial  true  anomaly  ' 
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f)  C0MM0N/T0P2/rOPSEP^  Parameter^  - Integer  VarjLablei 


Name Dimensions  Type 


Definition 


INACTV  20 

INSG  1 

ITERAT  I 


IWATE  I 

JMAX  1 

JWATE  1 

KMAX  1 


K0NVRJ  1 

L0CCDC  1 

L0CCM  X 

L0CDU  1 

L0CDU1  1 

L0CDU2  1 

L0CRFM  1 


I Vector  denoting  which  controls  are 

active,  on  bounds,  or  within  bound 
tolerance  regions, 

I Flag  set  when  S and  G are  input 

through  namelist, 

I Iteration  counter  (in  grid  mode 

ITERAT  indicates  the  index  of  the 
control  being  changed  for  a grid 
trajectory) . 

X Flag  designating  the  desired  con- 

trol weighting  scheme, 

I Number  of  mission  thrust  phases, 

I Flag  designating  target  weighting, 

I Number  of  thrust  controls  (THRUST 

(I,J))  chosen  to  be  elements  in 

U. 

I Convergence  flag, 

I Blank  common  location  for  storage 

of  the  inner  products  of  the 

weighted  sensitivity  matrix  columns. 

I Blank  common  location  for  storage 

of  the  magnitude  of  the  weighted 
sensitivity  column  vectors. 

I Blank  common  location  of  the  total 

control  correction  vector  (not 
scaled  by  GAMA), 

I Blank  common  location  of  the  per- 

formance control  correction  vector 
(not  scaled  by  GAMA). 

I Blank  common  location  of  the  con- 

straint control  correction  vector 
(not  scaled  by  GAMA). 

I Blank  common  location  of  the  s/c 

masses  evaluated  at  event  times 
for  the  reference  and  all  trial 
trajectories  in  a single  iteration. 
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Name 

Dimensions 

Type 

Definition 

L0CSDU 

1 

I 

Blank  common  storage,  location  for 
the  original  control  correction 
vectors  when  a number  of  controls 
must  be  dropped  during  an  iteration. 

L0CSI* 

1 

I 

Blank  common  location  of  the  pseudo 
inverse  of  the  weighted  sensitivity 
matrix. 

L0CSWG 

1 

I 

Blank  common  storage  location  for 
the  original  weighted  performance 
gradient  when  a number  of  controls 
must  be  dropped  during  an  iteration. 

L0CSWS 

1 

I 

Blank  common  storage  location  for 
the  original  weighted  sensitivity 
matrix  when  a number  of  controls 
must  be  dropped  during  an  iteration. 

L0CTS 

1 

I 

Blank  common  location  of  event 
times  for  the  reference  and  all 
trial  trajectories  in  a single 
iteration. 

L0CUL 

I 

I 

Blank  common  location  of  minimum 
and  maximum  control  bounds. 

LOCWG* 

1 

I 

Blank  common  location  of  the 
weighted  performance  gradient. 

L0CWS* 

1 

I 

Blank  common  location  of  the 
weighted  sensitivity  matrix. 

L0CWTJ 

1 

I 

Blank  common  location  of  the  con- 
trol weights. 

L0CXR 

1 

I 

Blank  common  location  of  the  6- 
component  state  vectors  associated 
with  the  event  times  of  the  refer- 
ence and  all  the  trial  trajectories 
of  a single  iteration. 

MIN  . 

1 

I 

Index  on  the  scale  factor  in  the 
GAMA  vector  which  provides  the 
best  control  correction. 

*May  be  in 
iteration, 

compressed  form 

if  controls  have  been  dropped  during  the 

Name 


Dimensions 


Definition 


Type 


MPRINT 

10 

I 

Flag  designating  TOPSEP  print 
options . 

NMAX 

1 

I 

Maximum  number  of  iterations. 

NT 

1 

I 

Number  of  targets. 

NTNP 

120 

I 

Vector  of  primary  bodies  associated 
with  the  event  times  of  the  refer- 
ence and  all  trial  trajectories  in 
a single  iteration. 

NTPH 

20 

I 

Vector  of  control  phase  numbers 
associated  with  the  event  times  of 
the  reference  and  all  trial  trajec- 
tories in  a single  iteration. 

NTR 

1 

I 

Trial  trajectory  counter  (NTR=1 
indicates  the  iteration  reference 
trajectory) . 

NTYPE 

1 

I 

Flag  designating  the  type  of  con- 
trol correction  to  be  made  during 
an  iteration. 

NU 

1 

I 

Number  of  controls. 

INJL0C 

1 

I 

Index  locating  the  selected  injectio 
controls  in  the  U vector. 

L0CFLX 

1 

I 

Blank  common  location  of  flux  values 
at  the  event  times  for  the  reference 
and  all  trial  trajectories. 

LOCFDT 

1 

I 

Blank  common  location  of  flux  rate 
values  at  the  event  times  for  the 
reference  and  all  trial  trajectories 

£)_  Common/TUG/Tjjg_  AV_P_aranieters 


AZMAX 

1 

R 

Maximum  launch  azimuth  constraint 

AZMIN 

1 

R 

Minimum  launch  azimuth  constraint 

RP1 

1 

R 

Inner  parking  orbit  radius 

TGFUEL 

1 

R 

Full  capacity  of  tug  stage 

TUG 

1 

L 

Flag  controlling  injection  computations 

TUG ISP 

1 

R 

Specific  impulse  of  tug  stage 

TUGWT 

1 

R 

Dry  weight  of  tug  stage 

2.6.3  G0DSEP  Labeled  Commons 


35 


G0DSEP  labeled  commons  were  created  following  two  specific  guidelines 
as  much  as  possible  --  organization  first  by  variable  function,  and  second  by 
variable  type.  Organization  by  function  will  hopefully  simplify  understanding 
of  the  program  and  minimize  the  number  of  common  blocks  required  for  any  given 
subroutine.  Organization  by  type  is  to  facilitate  conversion  to  machines  which 
require  double  precision  for  many  real  variables,  or  which  merely  allocate 
different  numbers  of  bytes  of  core  for  real,  integer  or  logical  variables. 

Any  variable  for  which  further  descriptions  may  be  found  under  input 
description  is  denoted  "(See  Input)"  and  refers  to  Reference  1,  Volume  II 
(User's  Manual)  Section  2.3. 

_§)_  Common/ DATAG I /Jnteger  Variables  Required  Qnly^  for  DATA  Overlay 


Name  Dimension  Type  Definition 


C0NRD 

1 

L 

Used  for  input  only 

-F , set  a priori  control  equal  to  a priori 
knowledge 

=T,  assume  a priori  control  is  read  in  namelist 
$G0DSEP 

IAUG 

50 

I 

Parameter  augmentation  control  (see  Input) 

IGF0RM 

1 

I 

=0,  input  control  uncertainties  packed 
=1,  input  control  uncertainties  unpacked 
(see  Input) 

IR0T 

1 

I 

Flag  to  specify  equatorial  covariance  input 

IPF0RM 

1 

I 

=0,  input  knowledge  uncertainties  packed 
=1,  input  knowledge  uncertainties  unpacked 
(see  Input) 

MAXAUG 

1 

I 

Maximum  length  allowed  for  augmented  state 
vector  (including  S/C  state)  allowable  maximum 
governed  only  by  available  core  and  dimensioned 
lengths  of  LIST  (see  Common/DIMENS/)  and  AUGLAB 
(see  Common/ LABEL/)  arrays 
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Name 

Dimens ion 

lY£g 

Definition 

MAX  DIM 

5 

I 

Maximum  allowable  input  dimensions  on  individ- 
ual state  vector  partitions  corresponding  to 
actual  dimensions  of  covariance  partitions 
in  subroutine  NMLIST 
MAXDIM(l)  = 6 (S/C  state) 

MAXDIM(2)  = 10  (solve-for  parameters) 

MAXDIM(3)  = 13  (dynamic  consider) 

MAXDIM(4)  = 15  (measurement  consider) 

MAXDIM(5)  = 10  (ignore) 

XLAB 

50 

H 

Parameter  Hollerith  labels  corresponding  to 
parameters  as  ordered  for  IAUG  (see  Input , 
IAUG) 

b)  Common/DATAGR/Rea 1 variables 

required  only  for  DATA  overlay 

D0PCNT 

1 

R 

Average  number  of  doppler  (range- rate)  measure 
ments  taken  per  day  during  tracking  arcs 
(see  Input) 

SIGRS 

1 

R 

Standard  deviation  in  spin  radius  for  equiv- 
alent station  location  errors  (see  Input) 

SIGL0N 

1 

R 

Standard  deviations  in  longitude  for  equiv- 
alent station  location  errors  (see  Input) 

SIGZ 

1 

R 

Standard  deviation  in  z-height  for  equivalent 
station  location  errors  (see  Input) 

C0RL0N 

1 

R 

Station- to- station  longitude  correlation  for 
equivalent  station  location  errors  (see  Input) 

c)  Comraon/DIMENS /Covariance  dimensions  and  sub-block  locators 

LIST 

30 

I 

List  of  parameters  included  in  augmented 
state  vector  in  the  order  in  which  they  appear 
in  the  covariance,  LIST  is  used  for  locating 
elements  of  covariance  and  transition  matrices 
where  necessary.  All  parameters  augmented  are 
denoted  by  parameter  number  used  for  Input 
(see  IAUG  in  Input).  S/C  state  components  - 
x,y,z,x,y,z  - are  denoted  by  -1, -2,-3, -4,-5 ,-6 
respectively. 

LISTDY 

20 

I 

List  of  dynamic  parameters  included  in  transi- 
tion matrices  read  from  STM  file.  Parameter 
numbering  and  ordering  conventions  are  the 
same  as  for  LIST  (above) . 
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Name 

L0CAUG 

L0CBLK 

L0CIAB 

MUG 

NAUGSQ 

NBLK 

NDIM 


Dimension  Type 

5x5  I 


5x5  I 


5 I 


1 I 

1 I 


1 I 


5 I 


Definition 


Array  of  locations  of  first  word  of  covariance 
partitions  within  complete  augmented  covariance 
matrix.  For  example,  since  covariance  blocks 
are  ordered,  S/C  state,  solve-for  parameters, 
dynamic  consider,  measurement  consider,  ignore 
parameters^ 

--L0CAUG (1 ,3)  locates  the  first  word  of  the 
sub-block  of  correlations  between  the  S/C 
state  and  the  dynamic  consider  parameters. 

Used  for  locating  first  word  of  covariance 
partitions  when  sub-blocks  are  stored  separately 
but  contiguously  in  core  (for  further  explan- 
ation see  AUGCNV  Sec  3.3.1  and  PPAK  Sec  3.3.31) 

Locates  within  LIST  and  AUGLAB  arrays  the 
beginning  of  the  parameter  (LIST)  or  label 
(AUGIAB)  lists  for  the  five  augmented  state 
vector  partitions 
(1)  - 1 

(2)  = beginning  of  solve-for  parameters 

(3)  = beginning  of  dynamic  consider  parameters 

(4)  = beginning  of  measurement  consider  parameters 

(5)  - beginning  of  ignore  parameters 

Dimension  of  augmented  state  vector 

i 

Total  number  of  elements  in  augmented  covar- 
iance matrix  (=NAUG**2) 

Total  number  of  elements  required  to  store 
individual,  packed  covariance  partitions  (for 
further  explanation,  see  AUGCNV,  Sec  3.3.1, 
and  PPAK,  Sec  3.3.31) 

Dimensions  of  individual  state  vector  partitions 

(1)  = S/C  state 

(2)  = solve-for  parameters 

(3)  = dynamic  consider  parameters 

(4)  - measurement  consider  parameters 

(5)  = ignore  parameters 

Number  of  dynamic  parameters  (including  S/C 
state)  used  included  ii^  state  transition 
matrices  on  STM  file. 


NFHSTM 


1 


I 
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Name Dimension Type  Definition 

d)  Common /GUIDE /Guidance  Related  Variables  Not  Specifically  Used  for  Scheduling 
or  Propagation 


BURNP 

4 

R 

Guidance  Interval  parameters 

(1)  - vehicle  mass  at  guidance  start 

(2)  - thrust  acceleration  magnitude  at  guidance  start 

(3)  - vehicle  mass  at  guidance  end 

(4)  - thrust  acceleration  magnitude  at  guidance  end 

C0NWT 

5 

R 

Control  weighting  factors, following  correspondences 
assumed 

(1)  - acceleration  magnitude 

(2)  - cone  angle 

(3)  - clock  angle 

(4)  - cutoff  time 

(5)  - startup  time 

DELAY 

1 

R 

Guidance  delay  time  for  current  maneuver 

S 

6x5 

R 

Guidance  sensitivity  matrix  of  S/C  state  at  cutoff 
time  with  respect  to  controls 

SHAT 

15 

R 

Sensitivity  matrix  of  target  parameters  w.r.t. 
control  parameters 

TARWT 

3 

R 

Target  parameter  weights 

TBURN 

1 

R 

Length  of  burn  interval  for  current  guidance  maneuver 

TGST0P 

1 

R 

Stop  time  for  integrator  if  either  guidance  or  predic 
tion  requires  integration  of  transition  matrices  to 
some  time  past  TFINAL.  For  both  guidance  and  predic- 
tion TDUR  (Common/TIME /)  is  defined  according  to  the 
maximum  of  TGST0P  and  TFINAL 

T0FF 

1 

R 

Cutoff  time  for  current  guidance  maneuver 

T0N 

1 

R 

Execution  time  for  current  guidance  maneuver 

UMAX 

5 

R 

Maximum  (10)  control  corrections  allowed 

VARDV 

4 

R 

Array  of  variances  of  delta-V  execution  error 
parameters 

(1)  - magnitude  proportionality  (100?/) 

(2)  - magnitude  resolution  (km^/s^) 

(3)  - in-ecliptic  pointing  (rad^) 

(4)  - out-of-ecliptic  pointing  (rad^) 

VARMAT 

18 

R 

Variation  matrix,  sensitivity  of  target  conditions 
with  respect  to  S/C  state  at  cutoff  time 

IP0L 

1 

I 

Guidance  policy  flag  for  current  guidance  event 
(see  IGP0L,  Input) 

IREAD 

1 

I 

Read  policy  for  namelist  $GEVENT  for  current 
guidance  event  (see  IGREAD,  Input) 

NC0N 

1 

I 

Number  of  controls  to  be  used  for  low  thrust 
guidance 
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e)  Common /KEPC0N/Tr a ns  format ions  Required  When  Ephemeris  Body  State  is  in 
Keplerian  Elements 


Common  block  KEPC0N  has  been  deleted. 


f)  Coramon/LABEL/Labeling  Arrays 


Name 

Dimension 

Type 

Definition 

AUG LAB 

30 

H 

Array  of  parameter  labels,  AUGLAB(I)  contains 
a six-character  Hollerith  label  which  corres- 
ponds to  the  parameter  number  in  LIST (I) 

(see  LIST,  Common/DIMENS /) 

EVLAB 

2x5 

H 

Array  of  event  labels 

(1.1) , (2,1)  - propagation 

(1.2) , (2,2)  - eigenvector 

(1.3) , (2,3)  - thrust 

(1.4) , (2,4)  - guidance 

(1.5) , (2, 5)  - prediction 

J0BLAB 

10 

H 

Run  identifying  label  input  through  namelist 
$G0DSEP  and  printed  at  the  top  of  the  first 
page  of  each  measurement  and  event  print 

ME  SLAB 

2x10 

H 

Array  of  measurement  labels  used  for  printing 
in  MEASPR  (see  MEASPR,  sec.  3.3.22  for  further 
details) 

PGLAB 

5x5 

H 

Array  of  labels  for  control  covariance  sub- 

blocks,  used  primarily  for  punching.  Upper 
triangle  elements  are  identical  to  those  names 
used  for  control  uncertainty  input  (CXSG,CXUG 
etc).  Lower  triangle  blocks  correspond  to 
transposes  of  upper  triangle  blocks  — their 
labels  are  so  denoted  by  an  added  dollar  sign 
(CXSG$ , CXUG$ , etc). 
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Name  Dimension  Type  Definition 

PLAB  5x5  H Array  of  labels  for  knowledge  covariance 

sub-blocks.  Upper  triangle  elements  are 
identical  to  those  names  used  for  knowledge 
uncertainty . input  (CXS,  CXU,  etc).  Lower 
triangle  blocks  correspond  to  transposes  of 
upper  triangle  blocks  --  their  labels  are 
so  denoted  by  an  added  dollar  sign  (XS$, 
CXUS,  etc). 


VECLAB  2x5  H Array  of  word  labels  for  augmented  state 

vector  partitions 

(1.1)  , (2,1)  - state 

(1.2) ,  (2,2)  - solve-for 

(1.3) ,  (2,3)  - dynamic 

(1.4) , (2,4)  - measurement 

(1.5)  , (2,5)  - ignore 


g)  Common /L0CATE /Parameters  Used  To  Locate  Matrices  In  Blank  Common 


p 

1 

I 

Location  of  current  knowledge  covariance  in 
blank  common 

PG 

1 

I 

Location  of  current  control  covariance  in  blank 
common,  if  guidance  events  are  included 

PWLS 

1 

I 

Location  of  weighted  least  squares  reference 
covariance  in  blank  common  if  using  sequential 
weighted  least  squares  OD  algorithm 

PHI 

1 

I 

Location  of  complete  augmented  transition 
matrix  in  blank  common  if  not  using  covariance 
integration  option 

PTEMP 

1 

I 

Location  in  blank  common  of  temporary  working 
area  the  size  of  the  augmented  covariance 
(and  therefore  transition  matrix,  also) 

By  convention  the  output  of  C0VP  is  always 
located  by  PTEMP 

PL0CAL 

1 

I 

Location  in  blank  common  of  local  working 
storage  area  the  size  of  the  augmented  co- 

variance  matrix.  This  area  is  intended  to  be 
used  locally  within  a subroutine  and  not  to  be 
saved  for  use  in  another  subroutine. 
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Name  Dimension  Type  Definition 

Location  of  observation  matrix  in  blank  common 
Location  of  gain  matrix  in  blank  common 
Locations  of  four  augmented  covariance 
size  blocks  in  blank  common  used  for 
guidance  computations 


GAIN  1 I 

PG1  1 I 

PG2  1 I 


h)  Common /L0GIC /Log ica 1 Variables 


CHEKPR 

10 

L 

Array  of  flags  controlling  checkout  print 
options  (see  Input) 

DYN0IS 

1 

L 

Flag  controlling  computation  of  effective 
process  noise 

=»TRUE.,  compute  effective  process  noise 
=*FALSE',  do  not  compute  effective  process 
noise 

GAINCR 

1 

L 

Flag  controlling  creation  of  GAIN  file  (TAPE  4) 
= * TRUE • , create  GAIN  file 
= *FALSE*,  do  not  create  GAIN  file 

GENC0V 

1 

L 

Flag  indicating  if  current  run  is  generalized 
covariance  run 

=«TRUE»,  generalized  covariance  run 
-•FALSE*,  not  generalized  covariance  run 

MESH 

1 

L 

Flag  indicating  if  scheduled  trajectory  time 
can  be  meshed  with  some  time  print  on  the 
STM  file  within  specified  forward  and  backward 
tolerances  (T0LF0R, T0LBAK , common/PR0PR/ ) 

= • TRUE • , meshing  successful 
=*FALSE*>  meshing  not  successful 

PD0T 

1 

L 

Flag  controlling  covariance  propagation 
=*TRUE* , propagate  by  integration  of  covariance 
variational  equations 

— •FAISE*,  propagate  by  state  transition  matrices 
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Name  Dimension  Type  Definition _____ — 

PRINT  1 L Flag  controlling  measurement  print 

-.TRUE*;  causes  full  print  before  and  after 
current  measurement 

=. FALSE,,  suppresses  measurement  print  except 
for  that  on  SUMMARY  file  if  summary  print 
requested  (see  SUMARY,  common/ L0GIC/) 


PRNC0V 

5 

L 

Array  of  flags  controlling  print  options  on 
covariance  sub-blocks  (see  Input) 

PRNSTM 

5 

L 

Array  of  flags  controlling  print  options  on 
transition  matrix  partitions  (see  Input) 

PR0PG 

1 

L 

Flag  controlling  propagation  of  control 
covariance 

=.TRUE.,  propagate  control  simultaneously 
with  knowledge  covariance 

= . FALSE.,  do  not  propagate  control  covariance 

PUNCHE 

5 

L 

Array  of  flags  controlling  punching  of  complete 
augmented  ’state  uncertainties  'for  different 
event  types  (see  Input). 

SCHFTL 

1 

L 

Flag  controlling  termination  or  continuation 
of  run  after  mesh  failure  on  STM  file 

if  MESH  - .TRUE.,  SCHFTL  has  no  effect, 
if  MESH  = .FALSE.,  then  SCHFTL  = .TRUE.,  will 
terminate  error  analysis  processing,  while 
SCHFTL  = .FALSE.,  will  result  in  diagnostic 
print  and  the  currently  scheduled  measurement 
or  event  will  not  be  processed 


SUMARY  1 


VRNIER  1 


L Flag  controlling  SUMMARY  file  print 

-.TRUE. , prints  summary  information  for  all 
measurements  on  SUMMARY  file  (TAPE  8) 

=. FALSE.,  no  summary  print 

L . Flag  indicating  if  current  guidance  event  is  a 
vernier  (=.TRUE.)  or  a primary  (—.FALSE.) 


i)  Common/MEA SI /Measurement  Related  Integer  Variables 


IAUGPH  1 


Parameter  number  of  first  ephemeris  element 
as  used  for  input  (See  IAUG, Input). 
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Name 

Dimension 

Type 

\ 

Definition 

I AUG ST 

1 

I 

Parameter  number  for  first  station  location 
parameter 

IBAZEL 

1 

I 

Parameter  number  for  first  azimuth-elevation 
angle  bias  parameter 

IBDIAM 

1 

I 

Parameter  number  for  apparent  planet  diameter 
measurement  bias 

IBHC02 

1 

I 

Parameter  number  for  horizon  scanner  altitude 
bias 

IBHZS 

1 

I 

Parameter  number  for  horizon  scanner  angle 
bias 

IB  STAR 

1 

I 

Parameter  number  of  first  star-planet  angle 
measurement  bias 

IB2WAY 

1 

I 

Parameter  number  of  first  2-way  DSN  measure- 
ment bias  term 

IB3WAY 

1 

I 

Parameter  number  of  first  3-way  DSN  measure- 
ment bias  term 

IDATYP 

1 

I 

Leading  digit  of  decoded  measurement  type 

®1,  ground-based  range-rate 

=2,  ground-base  range 

-3,  azimuth-elevation  angles 

=4,  on-board  optics  - star-planet  angle 

=5,  on-board  optics  - apparent  planet  diameter 

ID  MAX 

1 

I 

Maximum  number  allowed  to  be  assigned  to  a 
dynamic  parameter.  All  parameter  numbers  less 
than  or  equal  to  IDMAX  are  assumed  to  corre- 
spond to  dynamic  parameters.  Those  greater  than 
IDMAX  are  assumed  to  be  measurement  parameters. 

I GAIN 

1 

I 

Flag  indicating  gain  computation  algorithm 
to  be  used  (see  Input) 

ISTA1 

1 

I 

Parameters  used  in  decoding  measurement  codes. 

I ST  A 2 

1 

I 

For  further  explanation  see  0BSERVs  sec.  3.3.26. 

ISTA3 

1 

I 

MAXSTA 

1 

I 

Maximum  number  of  stations  for  which  station 
location  errors  and  range  and  range-rate  biases 
can  be  augmented  to  the  state  (maximum  number 
accommodated  by  XAUG  array).  See  0BSERV,  sec. 
3.3.26  for  further  explanation. 
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Name  Dimension  Type 


Definition 


NEPHEL  1 

NR  1 

NS0LVE  1 

NST  1 


I Number  of  ephemeris  elements  augmented  to 

state  for  current  error  analysis  run 

I Dimension  of  observation  vector  for  mea- 

surement currently  being  processed 

I Total  number  of  variables  and  parameters  being 

estimated  by  OD  algorithm  (number  of  S/C  state 
variables  plus  number  of  solve  for  parameters) 

I Total  number  of  ground  stations  defined  in 

STAL0C  array  for  possible  use  in  ground-based 
observations  (maximum  9).  For  further  expla- 
nation see  NST  and  STAL0C,  in  Input. 


j)  Common/MEASR/Measurement  Related  Real  Variables 


AZMUTH 

1 

R 

Azimuth  angle  in  degrees  from  station  ISTA1 
(0BSERV,  sec  3.3.26)  computed  only  for  azimuth- 
elevation  angle  measurements 

AZMTH2 

1 

R 

Azimuth  angle  in  degrees  from  station  ISTA2 
(0BSERV,  sec  3.3.26)  computed  only  for  azimuth- 
elevation  angle  measurements  and  if  ISTA2  > 0. 

BDYDEC 

1 

R 

Declination  angle  of  the  target  body  (in 
degrees)  as  seen  from  the  designated  observatior 

BDYRTA 

1 

R 

Right  ascension  angle  of  the  target  body  (in 
degrees)  as  seen  from  the  designated  observatory 

ELEV 

1 

R 

Elevation  angle  in  degrees  from  station  ISTA1 
(0BSERV,  sec  3.3.26)  computed  for  all  ground- 
based  measurements 

ELEV2 

1 

R 

Elevation  angle  in  degrees  from  station  ISTA2 
(0BSERV,  sec  3.3.26)  computed  for  all  ground- 
based  measurements  when  ISTA2  ^ 0 

HC02 

1 

R 

Altitude  of  C02  horizon  for  horizon  scanner 
measurement. 

R 

16 

R 

Dual  purpose  measurement  noise  matrix.  Before 
the  knowledge  covariance  is  updated  at  a 
measurement,  R is  the  covariance  of  the  mea-. 
surement  white  noise.  After  the  knowledge 
covariance  is  updated,  R is  the  measurement 
residual  matrix.  For  further  explanation  see 
Vol.  I,  Analytical  Manual,  sec  6.4. 

RANGE 

1 

R 

Range  in  km  from  station  ISTA1  (0BSERV,  sec 
3.3.26)  computed  for  all  ground-based  mea- 
surements 
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Name 

Dimension 

Type 

Definition 

RANGE  2 

1 

R 

Range  in  km  from  station  ISTA2  (0BSERV,  sec 
3.3.26)  computed  for  all  ground-based  measure- 
ments if  ISTA2  > 0 

REATE 

1 

R 

Range- rate  in  km/s  from  station  ISTA1  (0BSERV, 
sec  3.3.26)  computed  for  doppler  (range-rate) 
measurements  only 

RRATE2 

1 

R 

Range-rate  in  km/s  from  station  ISTA2  (0BSERV, 
sec  3.3.26)  computed  for  doppler  (range-rate) 
measurements  only,  and  only  if  ISTA2 > 0 

SCDEC 

1 

R 

S/C  geocentric  equatorial  declination  in 
degrees , computed  for  all  ground-based  measure- 
ments 

SCGL0N 

1 

R 

S/C  geocentric  equatorial  longitude  in  degrees, 
computed  for  all  ground-based  measurements 

STAL0C 

3x9 

R 

Array  of  station  locations  in  cylindrical 

equatorial  coordinates 

STAL0C  (1,1)  = spin  radius  (km) 

STAL0C  (2,1)  = longitude  (degrees  externally, 
radians  internally) 

STAL0C  (3,1)  = height  (km)  (See  Input) 

STARDC 

3x9 

R 

Array  of  ecliptic  star  direction  cosines  (or, 
equivalently,  unit  vectors  in  star  directions) 
See  Input 

ST PANG 

3 

R 

Array  of  star- planet  angle  measurements  in 
degrees,  computed  only  for  star-planet  angle 
measurements . 

(1) -angle  between  planet/target  body  and 
star  ISTA1  (0BSERV,  sec  3.3.26) 

(2) , (3)  - same  as  (1)  above  only  for  stars 
ISTA2  and  ISTA3  respectively 

VAKMES 

15 

R 

Array  of  measurement  white  noise  variance. 

Default  values  and  Input  are  by  standard 
deviations  in  array  SIGMES  (see  Input) 
internal  values  require  units  conversion 
as  well  as  squaring.  « 9 

(1) ,  2-way  doppler  (km  / s ) 

(2)  , 2-way  range  (km2)  2 2 

(3) ,  3-way  equivalent  frequency  drift  (km  / s ) 

(4)  , 3-way  range  (km2)  ^ 

(5)  , azimuth  angle  (rad  ) 
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Name  Dimension  Type 


Def ini tion 


2 

(6) ,  elevation  angle  (rad  ) 

(7) ,  on-board  optics-star-planet  angle  (radZ)  2 

(8) ,  on-board  optics-apparent  planet  diameter  (rad  ) 

(9) ,  on-board  optics-center  finding  uncertainty2 

in  conjunction  with  star-planet  angle  (rad  ) 

(10) ,  horizon  scanner  altitude  uncertainty  (km^) 

n 

(11) ,  horizon  scanner  angle  uncertainty  (rad^) 

(12) -(15),  not  used. 

k)  Common/PR0PI/Propaga tion  Related  Integer  Variables 


IPR0P 

1 

I 

Flag  controlling  print  options  with  propagation 
event 

=0,  no  print 

=1,  print  standard  deviations  and  correlation 
coefficients  for  S/C  state  vector  only 
=2,  full  eigenvector  print 

ITVERR 

1 

I 

Flag  for  type  of  second  thrust  noise  process 
(See  Input) 

LAFTER 

1 

I 

not  used 

LB  URN 

1 

I 

not  used 

LDEIAY 

1 

I 

not  used 

1)  Common/PR0PR/Propaga tion 

Related  real  Variables 

EPTAU 

3x2 

R 

Array  of  correlation  times  for  thruster  process 
noise  terms* EPTAU (I, J)  represents  correlation 
time  for  process  whose  variance  is  EPVAR (I, J) 
(See  Below) 

epvar 

3x2 

R 

Array  of  variances  for  thruster  noise  processes. 
All  elements  are  used  for  covariance  integration 
while  only  elements  EPVAR(I,1)  are  used  in  the 
effective  process  noise  model. 

Primary  processes 

(1.1) ,  magnitude  variance 

(2.1) ,  cone  angle  pointing  variance 

(3.1) ,  clock  angle  pointing  variance 

Secondary  processes 

(1.2) ,  magnitude  variance 

(2.2)  , cone  angle  pointing  variance 

(3.2) ,  clock  angle  pointing  variance 

gmass 

1 

R 

not  used 
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Name 

Dimension 

Type 

Definition 

GTBURN 

3x3 

R 

GT  matrix  (See  DYN0,  Section  3.3.10)  evaluated 
at  the  beginning  of  a guidance  burn  interval. 

GTDLAY 

3x3 

R 

GT  matrix  (See  DYN0,  Section  3.3.10)  evaluated 
at  cutoff  time  of  guidance  interval. 

GTSAVE 

3x3 

R 

GT  matrix  (See  DYN0,  Section  3.3.10)  saved  at 
beginning  of  each  propagation  interval  during 
normal  knowledge  propagation. 

Q 

6x6 

R 

Effective  prbcess  noise  matrix  computed  in 
DYN0  (Section  3.3.10). 

SAVACC 

3 

R 

Thrust  acceleration  magnitude  for  bias,  and 
first  and  second  noise  processes. 

SIG0N 

1 

R 

Standard  deviation  in  thrust  start-up  time 

TDUMP 

1 

R 

Time  at  which  a core  dump  is  desired. 

TG 

1 

R 

Input  epoch  for  control  uncertainties  if 
different  from  epoch  for  knowledge  uncertain- 
ties . 

T0LBAK 

1 

R 

Backward  tolerance  on  reading  transition 
matrices  from  STM  file. 

T0LF0R 

1 

R 

Forward  tolerance  on  reading  transition 
matrices  from  STM  file. 

XG 

6 

R 

not  used. 

m)  Common/SCHEDI/Scheduling  Related  Integer  Variables 


IGP0L  20 


IGREAD  20 


I 


I 

I 


Array  of  guidance  policy  control  flags 
=0,  no  maneuver,  print  control  uncertainties 
=1,  target  to  cartesian  state,  XYZ,  at  time 
specified  by  TIMFTA 

=2,  two  variable  B-plane  targeting  (B *T,  B*R) 
=3,  three  variable  B-plane  targeting  (B-T, 

B’R’  TS0I^ 

=4,  closest  approach  targeting  (radius  of 
closest  approach,  inclination,  time  of 
closest  approach). 

=5,  XYZ  targeting,  variable  time  of  arrival. 

Array  of  guidance  event  read  control  flags. 
(See  Input) 

Not  used. 


ITPQfL 


20 
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Name 

Dimension 

Type 

Definition 

MC0DE 

50 

I 

Array  of  measurement  (and  propagation  event) 
codes  used  in  scheduling  (See  SCHED,  Section 

3.3.36).' 

MC0UNT 

1 

I 

Measurement  counter,  total  cumulative  number 
of  measurements  processed. 

MESEVN  . 

1 

I 

Current  measurement  or  event  code. 

MNEXT 

1 

I 

Code  for  measurement  (or  propagation  event) 
to  be  scheduled  after  the  current  event. 

MPCNTR 

11 

I 

Array  of  counters  for  classes  of  data  types 
used  for  measurement  print  control  (See 
Input) . 

MPFREQ 

11 

I 

Array  of  print  frequencies  for  measurement 
print  control  (See  Input). 

NCNTE 

1 

I 

Counter  indicating  number  of  current  (or 
most  recently  executed)  eigenvector  event. 

NCNTG 

1 

I 

Counter  indicating  number  of  current  (or 
most  recently  executed)  guidance  event. 

NCNTP 

1 

I 

Counter  indicating  number  of  current  (or. 
most  recently  executed)  prediction  event. 

NCNTT 

1 

1 

Counter  indicating  number  of  current  (or 
most  recently  executed)  thrust  event. 

NEIGEN 

1 

I 

Total  number  of  eigenvector  events  to  be 
processed . 

NGUID 

1 

I 

Total  number  of  guidance  events  to  be 
processed. 

NPRED 

1 

I 

Total  number  of  prediction  events  to  be 
processed . 

NSCHED 

1 

X 

For  input,  number  of  scheduling  cards  to 
be  read. 

During  execution,  number  of  elements  of 
SCHEDM  (common / SC HEDR/)  to  be  tested  for 
scheduling. 

NTHRST 

1 

I 

Total  number  of  thrust  events  to  be  pro- 

cessed . 
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Name  Dimension  Type  Definition 


n)  Common/SCHEDR/Scheduling  Related  real  Variables' 


deltim 

1 

R 

Propagation  interval  length,  time  between 
previously  and  currently  scheduled  event. 
DELTIM  computed  between  STM  file  time  when 
reading  STM  file,  and  between  actual  sched- 
uled times  for  PD0T  and  STM  file  generation 

SCHEDM 

3x50 

R 

Array  of  measurement  schedule  times. 

SCHEDM(1,I)  = Next  time  to  be  scheduled 

for  measurement  type  MC0DE(I) 
SCHEDM (2, I)  = Stop  time  for  MC0DE(I) 

SCHEDM (3, I)  = Time  increment  for  scheduling 
MC0DE  (X  ) . 

TCURR 

1 

R 

Current  trajectory  time. 

TCUT0F 

20 

R 

Array  of  guidance  event  cutoff  times. 

TDELAY 

20 

R 

Array  of  guidance  event  delay  times. 

TEIGEN 

20 

R 

Array  of  eigenvector  event  times. 

TFINAL 

1 

R 

Final  trajectory  time  for  current  run. 

TGUID 

20 

R 

Array  of  guidance  event  times. 

TIMFTA 

1 

R 

Target  condition  evaluation  time  for  fixed 
time  of  arrival  targeting. 

TMNEXT 

1 

R 

Time  of  next  measurement  (or  propagation 
event)  to  be  scheduled  (See  SCHED,  Section 
3.3.36). 

TPAST 

1 

R 

Time  of  most  recently  scheduled  measurement 
or  event.  Set  to  previous  scheduled  time 
when  generating  STM  file  or  executing  PD0T. 
Set  to  previous  STM  file  time  when  reading 
from  STM  file. 

TFRED 

10 

R 

Array  of  prediction  event  times. 

TPRED2 

10 

R 

Array  of  times  predicted  to  for  prediction 
events . 
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Name 

Dimension 

Type 

Definition 

TSTM 

1 

R 

Current  time  from  STM 

file  when  reading  STM 

file . 

TTHRST 

40 

R 

Array  of  thrust  event 

times . 
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2.6.4'  SIMSEP  Common  Blocks 

The  SIMSEP  overlay  of  MAPSEP  has  seven  common  blocks:  DYN0S , ISIMl, 

ISIM2,  SIMl,  SIM2,  SIMLAB  and  ST0REC.  DYN0S  contains  the  random  number 
seed  and  thrust  noise  terms;  it  is  essential  to  all  SIMSEP  routines  that 
call  the  random  number  generator,  RNUM.  SIMl  and  ISIMl  are  common  blocks 
containing  information  essential  to  the  operation  of  SIMSEP  and  execution 
of  the  Monte  Carlo  loop.  SIMl  contains  real  data  and  ISIMl,  integer 
data.  SIM2  and  ISIM2  have  a correspondence  similar  to  SIMl  and  ISIMl 
and  contain  accumulated  statistical  data.  SIMLAB  contains  Hollerith 
labels  used  throughout  the  program.  Finally,  ST0REC  is  a storage  common 
block  with  three  sets  of  data,  each  pertaining  to  the  actual,  estimated, 
and  reference  world  integrating  conditions. 


a)  Common/DYN0S/prOcess  Noise  Variables 


Name 

Dimension 

Type 

Definition 

IRAN 

1 

I 

Random  number  seed. 

TVERR 

6x3 

R 

Time  varying  thrust  errors. 

b)  Common/I SIMl /SIMSEP  Integer  Variables 

IGL 

5 

I 

Guidance  Flag. 

IN  REF 

1 

I 

State  vector  read-in  flag. 

I0UT 

1 

I 

Printout  frequency  flag. 

IFUNCH 

• 1 

I 

Punch  output  flag. 

ITMX 

5 

I 

Maximum  number  of  iterations  allowed  in  non- 
linear guidance. 

I STM 

5 

.1 

Flag  vector  to  indicate  whether  trajectory 
sensitivities  are  to  be  computed  by  numerical 
differencing  or  integrated  variational  equations. 

52 


Name 

Dimension 

Type 

Definition 

JMAX 

1 

I 

Number  of  the  last  active  thrust  control  phase. 

JMIN 

1 

I 

Number  of  the  first  active  thrust  control  phase. 

KDIM 

5 

I 

Dimension  of  the  augmented  knowledge  covariance. 

kterr 

5 

I 

Option  flag  for  calculating  target  errors  after 
a guidance  correction. 

LSTAR 

6x5 

I 

List  of  target  variable  codes. 

MTPH 

5 

I 

Thrust  phase  number  at  a guidance  event. 

N CYCLE 

1 

I 

Number  of  Monte  Carlo  cycles. 

NGUID 

1 

I 

Number  of  the  guidance  event 

NTAR 

5 

I 

Number  of  target  variables. 

NTC 

5 

I 

Number  of  control  variables. 

c)  Common/ 1 SIM2 /Monte  Carlo  Integer  Variables 


KATH 

1 

I 

Dimension  of  the  ATHC0V  covariance  matrix 
(see  Common  SIM2). 

MC 

1 

I 

Number  of  Monte  Carlo  cycles 

executed 

previous ly . 

NSAMP 

5 

I 

Number  of  Monte  Carlo  cycles 
for  a given  guidance  event. 

executed 

previously 

d)  Common/ SIMLAB/SIMSEP  Labels 


LAB CON 

12x5 

I 

Stores  Hollerith  data 
variables . 

pertaining  to  control 

LAB  TAR 

12x5 

I 

Store  Hollerith  data 
variables . 

pertaining  to  target 

NAMEX 

12 

I 

Store  Hollerith  state 

vector  labels. 
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e)  Common /SIMt /Trajectory  Simulation  Real  Variables 


Name 

Dimension 

Type 

Definition 

A0K 

1 

R 

Backup  convergence  tolerance  for  the  weak 
convergence  test. 

C0NWT 

6x5 

R 

Control  weights. 

CPMAX 

1 

R 

Computer  processing  time  limit. 

DVMD0T 

1 

R 

Mass  flow  rate  for  chemical  propulsion  system. 

DVMXN 

1 

R 

Maximum  delta-ve locity  magnitude  step. 

EXVERR 

4 

R 

Midcourse  velocity  correction  execution  errors. 

GMERR 

3 

R 

Gravitational  constants  errors. 

MEND 

1 

R 

S/C  reference  mass  at  TEND. 

PG 

6x7 

R 

Spacecraft  control  error  matrix  (eigenvector/ 
eigenvalue  format). 

rmo: 

5 

R 

S/C  reference  mass  at  a guidance  event. 

RMTAR 

5 

R 

•S/C  reference  mass  at  a target  point. 

RXGE 

6x5 

R 

Reference  state  vector  at  a guidance  event. 

RXTAR 

6x5 

R 

Reference  state  vector  at  a target  point. 

SCERR 

10 

R 

Spacecraft  errors. 

SMAT 

36x5 

R 

Sensitivity  or  guidance  matrix. 

SPFIMP 

1 

R 

Specific  impulse  for  chemical  propulsion  system. 

TCERR 

6x20 

R 

Thrust  bias  errors. 

TEFH 

2 

R 

Epoch  of  evaluation  of  the  ephemeris  errors. 

TGE 

5 

R 

Guidance  event  epoch 

T0L 

5 

R 

Target  condition  tolerances. 

HPERT 

i 

6 

R 

.Thrust  control  perturbation  levels. 

J2ERR 

1 

R 

J2  error. 
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Name 

Dimension 

Type 

Definition 

TTAR 

5 

R 

Target  epoch. 

UNTAR 

6x5 

R 

Conversion  factor  for  converting  target  vari- 
ables from  internal  to  external  printout  units. 

XEND 

6 

R 

Reference  state  vector  at  TEND. 

XTARG 

6x5 

R 

Reference  trajectory  target  variables  at  TTAR. 

f)  Common/ SI  M2 /Monte 

Carlo  Real 

Variables 

ADVT 

2 

R 

Total  delta-velocity  magnitude  statistics. 

AMASS 

2 

R 

Accumulated  final  spacecraft  mass  statistics. 

ATHC0V 

420 

R 

Accumulated  total  thrust,  control  statistics. 

CNC0V 

42x5 

R 

Accumulated  active  thrust  control  error 
statistics . 

DVC0V 

3x4x5 

R 

Accumulated  delta-velocity  vector  error  matrix. 

DVMAGS 

.2x5 

R 

Accumulated  delta-velocity  magnitude  statistics. 

ENDC0V 

6x7 

R 

Spacecraft  control  error  covariance  at  the 
final  trajectory  time  TEND. 

GCC0V 

6x7x6 

R 

Accumulated  spacecraft  control  error  statistics 
evaluated  at  guidance  events. 

GMC0V 

2x5 

R 

Accumulated  mass  error  statistics  evaluated 
at  guidance  events. 

TCC0V 

6x7x5 

R 

Accumulated  spacecraft  control  error  statistics 
evaluated  at  the  target  points. 

TERC0V 

42x5 

R 

Accumulated  target  error  statistics. 

TMC0V 

2x5 

R 

Accumulated  mass  error  statistics  evaluated 
at  target  points. 
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g)  Common/ ST0REC/ Stored  Variables 


Name  Dimension  Type 

SCRA1  1 R 

SEXV1  1 R 


SNTPH1  1 R 

SPMl  11  R 

SP01  1 R 

SSCM1  1 R 

SSM1  1 R 

STEFFI  1 R 

STHRT1  6x20  R 


Definition  

Stored  radiation  pressure  coefficient. 

Stored  exhaust  velocity. 

Stored  thrust  phase  number. 

Stored  planetary  masses. 

Stored  electric  power  constant. 

Stored  S/C  mass. 

Stored  solar  mass. 

Stored  thruster  efficiency. 

Stored  thrust  control  profile. 


Note  that  there  are,  in  fact,  three  sets  of  data  in  ST0REC  corresponding  to 
post-scripts,  1,  2,  and  3.  For  example,  SCRA1  contains  the  radiation  pressure 
coefficient  used  while  integrating  an  actual  trajectory.  SCRA2  also  contains 
a radiation  pressure  coefficient  but  is  used  while  integrating  an  estimated 
trajectory.  Likewise,  SCRA3  and  all  post-script-3  constants  are  used  for 
generating  the  reference  trajectory. 
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MAPSEP- 1 


3.0  Subroutine  Descriptions 

3.1  Subroutine : MAPSEP 

Purpose : MAPSEP  is  the  executive  routine  that  selects  the  mode 

of  operation  (primary  overlay):  T0PSEP,  G0DSEP,  SIMSEP, 

or  REFSEP.  In  addition,  MAPSEP  calls  a fifth  primary, 
overlay  DATAM,  to  initialize  many  trajectory  parameters, 
and  to  print  the  initial  trajectory  information. 


Input /Output : 
Variable 

Input/ 

Output 

Argument/ 

Common 

M0DE 

I 

C 

I CYCLE 

0 

c 

INIT 

0 

c 

Local  Variables: 

Variable 

Definition 


Flag  determines  the  program’s 
operational  mode. 

=+  1,  Targeting  and  Optimization 
(T0PSEP). 

= + 2,  Error  analysis  (G0DSEP) . 

= + 3,  Simulation  (SIMSEP) . 

= + 4,  Reference  trajectory  pro- 
pagation (REFSEP) . 

Positive  values  will  cause  re- 
cycling back  to  the  MAPSEP  main, 
while  negative  numbers  will  cause 
recycling  back  to  the  mode  main. 

Flag  used  for  writing  the  mode's 
namelist  onto  disc  when  recycling 
back  to  the  mode's  main. 

= 0,  Do  not  store  the  namelist 
variables  on  disc. 

= 1,  Store  the  namelist  variables 
on  disc. 

Flag  used  to  read  namelist  $TRAJ 
from  disc  during  recycling. 


Definition 


ISEND 


Index  used  to  select  the  program's  mode  of 
operation.  ISEND  is  the  absolute  value  of 
M0DE. 
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MAPSEP-2 


Subroutines  Called:  DATAM,  T0PSEP,  G0DSEP,  SIMSEP,  REFSEP 

Common  Blocks:  (BUNK),  C0NST,  CYCLE,  EDIT,  EPHEM,  TIME,  TRAJ1, 

TRAJ2 , TRKDAT,W0RK 


Loaic  Flow: 
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BLKDAT-1 


3.1,1  Subroutine : 
Purpose : 

Method ; 

Remarks : 


BLKDAT 

To  initialize  default  values  of  program 
cons  tants . 

DATA  statements. 

The  following  four  pages  contain  a listing  of 
BLKDAT  with  respect  to  the  default  constants 
in  MAPSEP.  The  variables  are  defined  in 
appropriate  common  blocks  (Section  2.6). 

Common  C0NST:  AU,  PI,  RAD,  TM,  F0P,  BIG,  SMALL 

Common  EPHEM:  DJ1900,'  SUN,  PLANET,  SMASS,  PMASS, 

CSAX,  CECC,  CINC,  C0MEG,  C0MEGT,  CMEAN,  EMN, 
SPHERE,  S RADIS,  PRADIS 
Common  TRAJ1:  UP,  VP 
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BLKDAT-2 


DATA  AU/i .49S97893E8/ 

DATA  H0DY/1?»6H  / 

DATA  DU1900/£!4]SU20.0/ 

DATA  PI *KA0/3. 1 A 169^663389793^384 *S7. 2967 7961 308232/ 

DATA  TM/66400.0/ 

DATA  SMALL ,B I8,FUP,F0V/1 .t-2U  * i .t20  * i .E-lb* 1 .E-2S/ 

DATA  SUN*HLANLT/6HSUN  * 6HMERCR Y , bHVtNUs  toHEARTH  , 6HM AHb  * 

$ 6HJ0P1TK»6HSATUKN,6HURANUS*6HNEP  TNF  *6HPi_uru  ,6HEnCKE  ,6HMG0N  / 
DATA  OP  ( 1 * I)  , UP ( 2 • A ) * UP  ( 3 » ] ) « VH  ( I « 1 ) , VP  ( 2 , 1 ) WP  ( 3 , 1 ) / o*0 . 0/ 


DATA 

S 

M 

V 

E 

A 

J 

S 

U 

M 

P 

A 

M 

1*/ 


SMASS , PM^SS/ 

1 • 32  7 1 24  99t  1 I 
2,2l8lb976934b47£E+u4, 
3.24660i03U06467GE+Ub, 
**.0360  397B867?469t+0S, 
4 « 282B4438b3bS66bE  + 04 , 
1 .2fc  707  7 ibcJ3d0a76E  + 08i 
3. 7926b2S77732036t>07  , 
b*  767723462  7 1 2 8 8 6 E ♦ 0 6 « 
6.6906762  72066444E+06, 
7 . 324 0 8 934b 7 686S9L+ 04 , 
1.0  , 
4. 89830997096  Vt>462L  3 


SL^ImAJOh  AXIS  OF  OkR  i T (KM) 


DATA  CSA*/ 
M 
\7 
F. 

A 

J 

S 

u 

N 

P 

X 

*/ 


b. 7 9 0 9 1 3 4 94  3 2 4 9 7 0 1>  0 7 , 
1 .082 08683 30 031 b7£* 08, 
1 • 49b9  792  74  G7t>l4  6E  + Q8, 
2 • 2 7 9 4 A 03/ 9 8200b 4 t+ 08, 
7. 763283664940 76HE+08* 

1. *t2699  06l44b7  7 94E  + 09, 

2. B69b26o2ub3j920t+09, 
4.**9b4  71  798669^236+09, 
6.B9i;2i37obl4h/33r.  ♦09, 
0.  , 


ECCENTRICITY  OF  planet  orbit 


DATA 

M 

M 

V 

V 
t' 

E 

A 

A 

J 

J 


{ CECC ( I ) * 1 = 1 *20  ) / 

2 • 0 66 1 4 2 1 U 0 0 0 0 0 0 0 E ~ 0 1 , 
-3.0000UO0OO000000E-O8, 
6.d2Go900000000G0E-03* 
9.  lOOOOOOGOOOOOQOe-08 * 
1.67bl04000000000E-0?» 
-1.^6GOOOOOuOOOOOOE-07, 
9.33129OGGOO0GGGOE-02* 
-7.700000000000000E-06, 
• 4.833760000000000E-G2* 

0 • ♦ 


o . 

0 * 

0. 

0. 

G • 

o . 

“6. 6282 7 6664144 OOOt+04 

1 . BAG 36263 760237 7t*Q 6 

0 • 

u. 


2.04o00000UU00G0Gl-Q8» 
o • , 

-4.774oOU000UUOG00t-Obt 

0.  t 

-4.l80000000000000t-05* 
0 * ♦ 

9.20b400000000000fc-0b* 
0.  , 

l . 6302 0 000 0 0 000 0 0t-04  , 
u. 


ir  in 
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BLKDAT-3 


%/ 

DATA 


u 

u 

N 

N 

P 

P 

X 

X 

5/ 


<CECC  (I ) * l = 2 1 * 40 ) / 

5.589UOUUUOOOOOUGE-Q? * 

0.  * 

4.  704630 0 000 0 0.0  0 Ofc-O 2* 
0.  . * 
6.52  849000000000  06  -03* 
0.  * 
2.  48603305 36269 246-0  1 * 

0*  * 
0.  * 
0.  * 


INCLINATION  Oh  PLANE  I OkBI t 


-3,4705000000000006-04 

0. 


2.7204000000000006-04 

0. 

/. 701 0000000000 00 E-Ob 

0. 


0* 


0* 

0. 

On 


DATA 

M 
* M 

V 

V 
E 
E 
A 
A 
J 
J 

*/ 

0 A r A 

s 

s 

u 

u 

N 

N 

P 

P 

X 

X 

s/ 


{ C I NC ( I ) * I = 1 * 2 0 ) / 

1 .22223  322618  33386-01  * 
-3.  199  7702953229406-0  7 * 
5. 9230026790 72664E- 02* 
-1.69684  7863633378E-08* 
0.  * 

0.  * 

3.2294408926068396-02* 
2.20l0*D4ll2237JU3E-07f 
2.2  841 1)  2 6958 1V35  26 -0  2* 
0 . * 

(CINC ( I) * 1=21 *40) / 

4. 3503 78bO A 70 02  0 OE-O 2 « 

0.  * 

1.J48&5469B110507E-02* 

0.  9 

3. 1063770/ lhl0904E-02* 

0.  * 

2.996 7 069 7 08596946 -01 * 

0.  * 

0.  * 

0.  * 


3.24 7 7688497527896- 05* 

°.  • 

i. 7555103392976306-OS* 

0 . * 

0.  * 

o.  ♦ 

*1.1780972450961806-05* 
0.  * 

- 9 .6  9 62  7 3622 19  07146-05* 


757 0 1 889775258 Ot-O 5 

0 . 

9.6962736221907256-06 

0. 

-1.5998851 4766 U70t-04 


On 

On 

0. 

0. 

0. 


longitude  OF 


ASCENOInu  NODE  OF  PLANET  OHbll 


DATA 

M 

M 

V 

V 
E 
E 
A 
A 
J 
J 


(C0^6G (I) *1=1*20)/ 

8.2285196951 788386-01* 
3. 03^93364  3 7457016-06* 
1.322b0435U0276A7L+00* 
7. 1558499331 76  7 716-06* 
0.  * 
0.  * 
8.51484 0 3741548156-01  * 
-2.4240664055476656-08* 

1 . 73551  BO  775297116*00* 

0.  • 


2.0685767738741196-02* 
0.  * 
1.8705345274070975-02* 

0.  * 


1 .3456343088772036-02* 
-9. 3 084226 7 7 303 0825-08* 
1 . 7644 7939239b 1556-02* 

0. 
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BLKDAT-4 


*/ 

DMA 

S 

s 

u 

u 

N 

N 

P 

P 

K 

X 

*/ 


(COMLG( I ) * 1 = 21 *40) / 

1 • 968<944380  473834F  + 009 

0 • 9 

1.2 8264077 0442747E+009 

0 . 9 

2.260  ^7338330  04  14E*  00  9 

U * 9 

1.91433/36U102286E+009 

0 • ,9 

0 • 9 

U • 9 


LONGITUDE  ok  Pfc-PlfaEE  OK  P L A N F.  T OPRI  r 


DATA 

p4 

M 

V 

V 
E 

K 

A 

A 

J 

J 

W 

DATA 

b 

8 

U 

•J 

N 

N 

P 

P 

X 

X 


(COtffcGT < I)  9 1-1  i2'J)  / 

1.32469961  /794565E+009 
3 . 143873166b  7 2 1 6 0 E - 0 fa  9 
8*8  71 7fa743o663804E+009- 
-1 . /0412UU69100G21E-059 
1*  7b6b3odi3279085E+009 
7. 90 24 630020834 6 3E -069 
d. 6332080383 7 02b0t +00 9 
2.266b 03939167U80E-0 69 
2.2i8bfa21bd703i9GF-01  • 

0.  9 


(COHt.Gr  < I ) 9 1=81  9 4 0 ) / 

I .d89799666falb077E+009 

0.  9 

2.9302426063627  32  E + 009 

0.  9 

7.6332938179342S6E-01 9 


U • 9 

3.90991 930279 1948E+ 00 t 

0.  9 

0.  9 

0.  9 


b/ 

ME  AN  ANOMALY  OF  PLANE!  OPR  IT 


DATA 

M 

M 

V 

V 
£ 

£ 

A 

A 

J 

J 


{ CPt AN ( I)  *1  = 1 98O) / 

I . 7831  1 1953331 731E+009 
6. 72664623597 1626E-09, 
3 • 7 I 0 6 8 6 1 7 1 6 8 b b 6 3 E ■*■  0 0 9 
1 • 6824 9 7 39692 2333E -0 6 9 
6.2365837641  18874E+0G9 
— 1 • 9 b 4 7 6 8 7 b 2 8 3 3 fa  4 8 E - 0 7 9 
5. 3 7684 032  3254 30  3E  + 0 0 9 
2.3fab444733227922E-079 
3.93  08381  7372 1440E>00  9 

V • 9 


i .32397 7869b 10 1496-02 

0. 

8.9120874929960466-03 


O. 

1 .923032ti38b68217t.- 02 

0. 

u. 

0. 

0. 

0. 


2. 71 484 023892994 0E-02 9 

0 . 9 

6.45/4«b6l2366357t-02* 

0 . 9 

3. 0o03264l6/9 73566-029 
3.8l  7 7 c>4 1 7 33 1 4 4 3 2 L - 0 6 9 
3.212  7293630 1899bL-0 2 9 
-2. 0 646  9882877 10  036-0  8 9 
2. 6 1230233 324 33 90c -02 9 
0. 


3.419661 1621362406-02 

0. 

2,83460863071 12336-02 


U. 

1 .3327043138701206-02 

0.  ‘ 

0. 

0. 

0 . 

0. 


/. 1424 7 100 07 92648c +02 9 

0 . 9 

2. 79624462 32 78380E+02 9 
0 . 9 

1.  72Ol*697o768320E.+  029 
1.221 7304763960336-099 
9.1436877239947266+01 9 
4.363323129963b23t-10  9 
1 .430191  92  7 7374816.+ 01  * 
0. 
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BLKDAT-5 


€/ 

DATA 

S 

8 

U 

U 

N 

N 

P 

P 

X 

X 

$/ 

DATA 

0 

0 

* 


(CMtANU  ) « I=2i  t40)  / 

3.062o4040b251532E+00  * 
0.  ♦ 
1 .297l62lb2226l78E-*00» 
0.  ♦ 
7*2046blb0  6J67bllt!-0l  ♦ 
0 • « 
3.993690QGb707340E*00* 


£mn/ 


0. 

0. 

0. 


36 01  bib 
0.0000362b 7 
b • 63b  1 b 1 b 4 


W 

L 

L 

I 

E 

6 

%/ 


-0.000180208 
4.7 19966b  7 3 
-0.000019774 
0 • 069804  1 Oh 
0.054900469 
3.643984402E5 


DATA  SPHERE/ 
M 
V 
£ 

A 

J 

S 

0 

N 

P 

X 

N* 

*/ 


J • 1 69676  U 2264 1 £>  u 5 
1 .4t>8336566233fc-*06 
2.  167226198672E+06 
1 . b63493250956f>06 
7 .6640  76431  1 4 b 6 + 07 
9 .3993b 9 39b 39 6t>  0 7 
i.OiU064DOO?16£>GH 
1.67  74b  3b  30609  r.  ♦08 
4.8314b 93  14 7b 5 £ ♦ 0 7 
0*0 

6.bbb261 139223 £-06 


DATA  S9Al>1S»p9aU1  b/ 


S 

M 

V 

E 

A 

J 

S 

U 

N 

P 

X 

M 

S/ 

PFTUKN 


6.93992c!-*’ Ob 
2 • 43b0  Uc.  ♦ 03 
b.0b000t*03 
6.376i6E*03 
3.39340L+03 
7. 1 3720E+Q4 
b • 040 1 Ut ♦ 04 
2. 3bb0GL-*04 
2 . bO  020E  ♦ 0** 
7 • 0 1 60CE  + 0 3 
0 , 0 

1 . 736  09E  ■*  0 3 


END 


b. 837120989  7 90549  c..  *00* 
0 . * 
2. 0 4 684  79 190585  lie *0  0* 
0 . * 
1. 0463 710 40633G37E+00* 
0.  « 
6.9626  3b  706298997L-01 1 
0.  * 
0.  t 

0. 


-0*0009242? 
0.000000034 
u. 001944367 
-0.000000209 
0. ^29971461 
0.000000033 
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DATAM- 1 


3.1.2  Subroutine : 

Purpose : 

Method : 


Remarks : 


Input/Output: 

Variable 
ACC  (STEP) 

BIG 

B0DY 


DATAM 

To  read  input  data  and  initialize  trajectory 
and  spacecraft  parameters  for  all  MAPSEP  modes. 
After  DATAM  executes  the  default  value  initial- 
ization, the  namelist  $TRAJ  is  read.  The  dimen- 
sions and  definitions  for  variables  contained  in 
this  namelist  are  discussed  in  detail  in  Section 
2.1  of  the  User's  Manual,  The  input  data  are 
processed  and  stored  in  labeled  common  for  sub- 
sequent use  in  any  of  the  three  possible  modes. 

User  options  specified  by  input  determine  the 
degree  of  data  preparation  and  the  logic  opera- 
tions within  the  main  cycle  of  the  program. 

Some  variables  appearing  in  DATAM  are  initialized 
from  the  namelist  with  units'  specified  in  the 
User's  Manual.  Before  these  variables  are 
stored  in  common,  they  are  converted,  if  neces- 
sary, to  internal  units  which  are:  kg,  kw,  km, 

sec,  km/sec,  and  radians 

Input/  Namelist/ 

Output Common  Definition  

I N/C  Scaling  factor  of  the  inte 

gration  step  size, 

20 

0 C Large  constant,  1*10 

0 C Hollerith  names  of  bodies 

considered  in  integration. 
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DATAM-2 


Variable 

Input/ 

Output 

Namelist/ 

Common 

Definition 

B0DYIN 

I 

N 

Input  ephemeris  data  for 
body  not  included  block 
data. 

CECC 

I/O 

C 

Array  of  orbital  eccen- 
tricities and  rates. 

CINC 

I/O 

C 

Array  of  orbital  inclina- 
tions and  rates. 

CMEAN 

I/O 

c 

Array  of  mean  anomalies 
and  rates. 

C0MEG 

I/O 

c 

Array  of  longitudes  of 
ascending  node  and  rates. 

C0MEGT 

I/O 

c 

Array  of  longitudes  of 
periapsis  and  rates. 

CSAX 

I/O 

c 

Array  of  semi-major  axes 
and  rates . 

DJ1900 

0 

c 

Julian  date  of  year  1900. 

DRMAX 

I/O 

N/C 

Maximum  deviation  from  the 
reference  conic  before 
recti f ica tion. 

ECEQ 

0 

C 

Transformation  matrix  from 
Earth  equatorial  to  ecliptic 

ENGINE 

I/O 

N/C 

Spacecraft  subsystem  para- 
meter. 

EP0CH (TLNCH) 

I/O 

C(N) 

Launch  epoch. 

FRCA 

I/O 

N/C 

Specification  for  testing 
closest  approach  along  tra- 
jectory (See  Section  2.1, 
User's  Manual). 

IAUGDC 

I/O 

N/C 

f 

Flags  specifying  parameters 
which  are  used  to  augment 
the  state  transition  matrix. 

ICALL 

0 

C 

Trajectory  package  initial- 
ization flag. 
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DATAM-3 


Input/ 

Variable  Output 

Namelist/ 

Common 

Definition 

IC00RD 

I/O 

N/C 

Flag  indicating  relative 
to  which  body  the  input 
state  corresponds. 

IENRGY 

I/O 

• N/C 

Flag  specifying  type  of 
power  subsystem. 

INIT 

0 

C 

Cycle  flag. 

INTEG  (I0PT(  1)  ) 

0 

C 

Flag  specifying  equations 
to  be  integrated  in  the 
trajectory  package. 

IPRINT 

I/O 

N/C 

Print  option  flags. 

ISTMF 

I/O 

N/C 

STM  file  flag  and  data 
cycle  flag. 

IST0P 

I/O 

N/C 

Flag  specifying  stopping 
conditions . 

JPFLAG 

0 

C 

Primary  body  change  out- 
put flag. 

KTRAJ  (I0PT(2)) 

0 

c 

Control  phase  change  out- 
put flag. 

L0CS 

0 

c 

First  location  in  blank 
common  available  for  use 
in  the  trajectory  package 

ME  VENT  (I0PT (3) ) 

0 

c 

Event  detection  logic  flaj 

M0DE 

I/O 

N/C 

Mode  specification  flag. 

MPLAN 

0 

C 

Number  of  bodies  included 
in  the  integration. 

NB 

I/O 

N/C 

Flag  specifying  bodies  to 
be  included  in  the  inte- 
gration. 

NB0D 

0 

C 

Number  of  bodies  specifiei 
in  NB  (MPLAN- 1) , 

NEP 

I/O 

N/C 

Ephemeris  planet  designa- 
tion. 
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Input/  Namelist/ 


Variable 

Output 

Common 

Definition 

NLP 

0 

c 

Launch  planet  designation. 

N0ISED 

0 

c 

SIMSEP  noise  flag. 

NPHASE 

0 

c 

Flag  set  to  detect  control 
phase  changes. 

NPRI 

0 

c 

Primary  body  designation. 

NTP 

I/O 

N/C 

Target  body  designation. 

NTPHAS 

0 

c 

Control  phase  number. 

PLANET 

0 

c 

Hollerith  names  of  all 
planets . 

RAD 

0 

c 

Number  of  degrees  per 
radian. 

RST0P 

I/O 

N/C 

Stopping  radius  if  IST0P  “ 
4. 

SCMASS 

I/O 

N/C 

Spacecraft  initial  mass. 

SCMVAR 

0 

C 

Spacecraft  initial  mass 
variation. 

SMASS 

0 

C 

Mass  of  the  sun. 

STATEO 

I 

N 

Spacecraft  initial  state 
(equatorial  or  ecliptic). 

TDUR 

0 

C 

Maximum  spacecraft  flight 
duration  (sec). 

TEND 

I/O 

N/C 

Trajectory  end  time  (days). 

TEVNT 

0 

C 

Event  time. 

THRUST 

I/O 

N/C 

• Thrust  control  profile. 

TLNCH 

I 

N 

Launch  epoch. 

TM 

0 

C 

Seconds  per  day. 

TSTART 

I/O 

N/C 

Trajectory  start  time 
(TSTART  > TLNCH) . 
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Variable 

Input/ 

Output 

Namelist/ 

Common 

Definition  ! 

XB0DY 

1/0 

N/C 

Hollerith  name  of  input  body. 

XPRINT 

1/0 

N/C 

Trajectory  print  frequency 
(days) . 

ZK 

1/0 

N/C 

Direction  cosines  of  the 
reference  star. 

DUMMY 

I 

N 

Not  used. 

ELVMIN 

1/0 

N/C 

Minimum  elevation  angle. 

GHZER0 

0 

C 

Greenwich  hour  angle  at 
launch  epoch. 

I0BS 

1/0 

N/C 

Index  designating  location  of 
astronomical  observatory  in 
STAL0C . 

KARDS 

1/0 

N/C 

Number  of  formatted  print 
schedule  cards  to  be  read  dur- 
ing a REFSEP  run. 

PRNML 

I 

N 

Logical  flag  specifying  that 
the  SIT  RAJ  namelist  be  printed 
(TRUE)  or  not  be  printed  (FALSE). 

STAL0C 

Local  Variables: 
Variable 

1/0 

N/C 

Tracking  station  coordinates. 
Definition 

AO,  Al,  A2,  i 

A3 

Constants 
tions . 

used  in  the  obliquity  computa- 

DJCENT 

Days  in  a 

Julian  Century. 

D10K 

Constant 

104. 

I0PT 

Option  flags  used  to  set  parameters  in 

TRAJ . 

JMAX 

Number  of 

thrust  control  phases. 

STATER 

Magnitude  of  initial  position  vector. 

STATEV 

Magnitude 

of  initial  velocity  vector. 

Subroutines  Called 
Calling  Subroutine 

: BLKDAT, 

: MAPSEP 

ZER0M,  MMAB, 

VECMAG,  TIME 

Common  Blocks: 

C0NST, 

EDIT,  EPHEM,  ' 

TIME,  TRAJ1,  TRAJ 2,  W0KK,  TRKDAT 
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TIME-1 


3.1.3  Subroutine:  TIME  (DAY,  IYR,  M0,  IDAY,  IHR,  MIN,  SEC,'  IC0DE) 
Purpose : TIME  converts  a Julian  Date  to  the  corresponding 

calendar  date  or  a.  calendar  date  to  the  correspond- 
ing Julian  Date, 


Input/Output : 

Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

DAY 

I/O 

A 

Julian  Date, 

IYR 

I/O 

A 

Calendar  year. 

M0 

I/O 

A 

Month. 

IDAY 

I/O 

A 

Day. 

IHR 

I/O 

A 

Hour. 

MIN 

I/O 

A 

Minute. 

SEC 

I/O 

A 

Second. 

, IC0DE 

I 

A 

Flag  that  determines  whether 
to  convert  from  a Julian 
Date  to  calendar  day  or  vice 
versa , 

= 0,  Convert  to  a Julian  Date 
^ 0,  Convert  from  a Julian 

Date 

Subroutines  Called:  None 

Calling  Subroutine:  DA TAM 


Common  Blocks: 


None 
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T0PSEP-1 


3,2  Subroutine:  T0PSEP 

Purpose:  To  execute  the  proper  submode  operation. 

Remarks:  T0PSEP  is  the  primary  overlay  which  controls  the 

targeting  and  optimization  mode. 


[nput/Output : 


Input/ 
Outpu  t 


Definition 

Submode  designation. 

Mode  designation. 

-1,  Cycle  back  within  mode 

1,  Cycle  back  to  MAPSEP 
main 


Local  Variables: 
Variable 


Definition 


W0RK 


Working  storage. 


Subroutines  Called:  DATAT,  PEGS,  GRID,  PGM 

Calling  Subroutines:  MAPSEP 

Common  Blocks:  (BLANK),  ALTFIL,  C0NST,  EDIT,  EPHEM,  GRID,  TIME, 

T0P1,  T0P2 , TRAJ1 , TRAJ2 , W0RK 
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T0PSEP-2 
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BUCKET- 1 


3.2.1  Subroutine t 
Purpose : 

Rema  rks : 


Input /Output : 

Variable 

N 

NP 

X 

XX 


BUCKET  (X,  Y,  N,  XX,  YY,  NP) 

To  sort  a set  of  independent  elements  in  ascend- 
ing order  and  to  find  a right  bounded  minimum 
from  the  associated  set  of  dependent  elements. 
This  routine  is  used  in  preparation  for  the 
polynomial  curve  fitting  routine,  MINMUM,  to  aid 
in  calculating  trial  control  profiles.  BUCKET 
sorts  pairs  of  elements  (X^,  Y^)  in  ascending 
order  of  the  elements  X^  to  form  the  pairs  of 
elements  (XX.^,  YY^  ^nd  locates  the  element 

YYx.n  such  that 
NP 

YY  4^  YY 
NP  ^ NP+1 

If  this  condition  cannot  be  satisfied  the 
pointer,  NP,  is  set  to  zero  to  indicate  that  no 
right  bounded  minimum  exists. 


Input/  Argument/ 

Ou  tpu  t Common Definition 

X A Number  of  elements  to  be 

sorted. 


0 A Pointer  to  a minimum 

dependent  element. 

X A . Vector  of  independent 

elements  to  be  sorted. 


0 


A Vector  of  ordered  independ 

ent  elements. 
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BUCKET-2 


Variable 

Input/ 

Output 

Agrument/ 

Common 

Definition 

Y 

I 

A 

Vector  of  dependent  elements 
associated  with  X. 

YY 

0. 

A 

Vector  of  dependent  elements 
associated  with  XX, 

Local  Variables: 

Variable 

Definition 

IEND  Termination  flag. 

SAVE  Intermediate  variable. 

Subroutines  Called:  None 

Calling  Subroutines:  GENMIN 

•Common  Blocks:  None 
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Exchange  the  Values  of 
XX(1)  and  XX(I-l) 


and 

YY (I)  and  YY(I-l); 
IEND  = 0 
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DATAT-1 


3,2.2  Subrouti. 
Purpose : 

Method ; 


Remarks : 


Input/Output : 

Variable 

BIG 

BT0L 


: DATAT 

To  read  input  data  and  initialize  the  trajectory 
targeting  and  optimization  mode. 

After  DATAT  executes  the  default  value  initial- 
ization, the  namelist  #T0PSEP  is  read.  The 
dimensions  and  definitions  for  variables  con- 
tained in  this  namelist  are  discussed  in  detail 
in  the  T0PSEP  section  of  the  User’s  Manual.  The 
input  data  are  processed  and  stored  in  labeled 
common  for  subsequent  use  in  any  of  the  three 
possible  submodes.  User  options  specified  by 
input  determine  the  degree  of  data  preparation 
and  the  logic  operations  within  the  main  cycle 
of  the  program. 

Some  variables  appearing  in  DATAT  are  initialized 
from  the  namelist  with  units  specified  in  the 
User's  Manual.  Before  they  are  transmitted  to 
other  routines,  they  are  converted,  if  necessary, 
to  internal  operational  units  which  are:  kg,  kw, 


km,  sec, 

km/sec,  and 

radians . 

Input/ 

Output 

Namelist/ 

Common 

Definition 

I 

C 

Large  constant,  1.E20 

I 

N/C 

Tolerance  on  control 
bounds . 
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DATAT-2 


Variable 

Input/ 

Output 

Namelist/ 

Common 

Definition 

CHI 

0 

C 

In  plane  AV  direction 
angle  at  injection* 

CNTR0L 

0 

C 

Initial  values  of  all 
possible  controls  other 
than  thrust  controls. 

. . CNVRTT 

0 

C 

Conversion  constants  from 
input  units  to  internal 
units  for  selected  targets. 

CNVRTU 

0 

C 

Conversion  constants  from 
input  units  to  internal 
units  for  selected  controls, 

DELVO 

0 

C 

Injection  |AV|. 

DFMAX 

I/O 

N/C 

Maximum  increase  allowed 
in  the  cost  index  (F)  per 
iteration. 

DP2 

I/O 

N/C 

Estimated  region  of  linear- 
ity in  the  control  space. 

E 

0 

C 

Target  errors  of  the  currem 
trajectory.  • 

ENGINE  (1) 

I 

N/C 

Power  from  solar  panels  at 

1 AO  . 

ENGINE (10)  I 

N/C 

S/C  exhaust  velocity. 

EPS0N 

I 

N/C 

Scalar  multiple  for  control 
perturbations . 

ETL0UT 

0 

C 

Target  tolerances  in  print- 
out units. 

ET0L 

0 

C 

Target  tolerances. 

G 

I/O 

N/C 

Performance  gradient.. 

G0UT 

0 

C 

Performance  gradient  in 
print-out  units. 

GTRIAL 

I/O 

N/C 

One-dimensional  search  con- 
stants . 
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DA TAT -3 


■table 

Input/ 
Outpu  t 

Namelist/ 

Common 

Def ini tion 

H 

I/O  . 

N/C 

Control  perturbation  array. 

HMULT 

I/O 

N/C 

Vector  of  scalar  multiples 
of  the  H array  to  determine 
the  second  step  of  all  con- 
trols in  the  control  grid. 

H0UT 

0 

C 

Control  perturbation  array 
in  print-out  units. 

ICYCLE 

I/O 

C 

Mode  cycle  flag. 

IM0DE 

I/O 

N/C 

TOPSEP  submode  designation. 

INACTV 

0 

C 

Vector  denoting  which  con- 
trols are  active,  or  bounds, 
or  within  bound  tolerance 
regions. 

INJL0C 

0 

C 

Index  of  the  control  pre- 
ceding the  injection 
controls  in  U. 

INSG 

I/O 

N/C 

Flag  set  when  S and  G are 
input  through  namelist. 

iterat 

0 

C 

Iteration  counter. 

IWATE 

I/O 

N/C 

Flag  designating  the  desired 
control  weighting  schemes. 

JMAX 

0 

C 

Number  of  mission  thrust 
phases . 

JWATE 

I/O 

N/C 

Flag  designating  target 
weighting . 

KMAX 

0 

C 

Number  of  thrust  controls 
(THRUST (I, J))  chosen  to  be 
elements  in  U. 

K0NVRJ 

0 

C 

Convergence  flag. 

LABEL 

0 

C 

Hollerith  names  of  all  pos- 
sible targets. 
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DATAT-4 


Variable 

Input/ 

Output 

Namelist/ 

Common 

Definition 

LABEL! 

0 

C 

Hollerith  names  of  chosen 
targets . 

L0CCDC 

0 

c 

Blank  common  storage  loca- 
tion for  the  inner  products 
of  the  weighted  sensitivity 
matrix  columns. 

L0CCM 

0 

c 

Blank  common  location  for 
storage  of  the  magnitude 
of  the  weighted  sensitivity 
column  vectors. 

L0CDU 

0 

c 

Blank  common  location  of 
the  total  control  correction 
vector  (not  scaled  by.  GAMA). 

L0CDU1 

0 

c 

Blank  common  location  of 
the  performance  control 
correction  vector  (not 
scaled  by -GAMA), 

L0CDU2 

0 

c 

Blank  common  location  of 
the  constraint  control  cor- 
rection vector  (not  scaled 
by  GAMA). 

L0CE1 

0 

c 

Blank  common  location  of 
the  target  errors  associated 
with  the  first  step  of  the 
control  grid. 

L0CE2 

0 

c 

Blank  common  location  of 
the  target  errors  associated 
with  the  second  step  of  the 
control  grid. 

L0CEM1 

0 

c 

Blank  common  location  of  the 
target  error  indices  associ- 
ated with  the  first  step  of 
the  control  grid. 

L0CEM2 

0 

c 

Blank  common  location  of  the 

target  error  indices  associ- 
ated with  the  second  step  of 
the  control  grid. 
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DATAT-5 


Variable 

Input/ 

Output 

Namelist/ 

Common 

L0CEN 

0 

C 

L0CF1 

0 

C 

L0CF2 

0 

c 

L0CRFM 

0 

c 

L0CSDU 

0 

c 

L0CSI* 

0 

c 

L0CSWG 

0 

c 

L0CSWS 

0 

c 

Definition 

Blank  common  location  of 
the  nominal  trajectory 
target  errors  in  the  grid 
mode . 

Blank  common  location  of 
the  performance  indices 
associated  with  the  first 
step  of  the  control  grid. 

Blank  common  location  of 
the  performance  indices 
associated  with  the  second 
step  of  the  control  grid. 

Blank  common  location  of 
the  S/C  masses  evaluated 
at  event  times  for  the 
reference  and  all  trial 
trajectories  in  a single 
iteration. 

Blank  common  storage 
location  for  the  original 
control  correction  vectors 
when  a number  of  controls 
must  be  dropped  during  an 
iteration. 

Blank  common  location  of 
the  pseudo  inverse  of  the 
weighted  sensitivity  matrix. 

Blank  common  storage  loca- 
tion for  the  original 
weighted  performance  gradient 
when  a number  of  controls 
must  be  dropped  during  an 
iteration. 

Blank  common  storage  loca- 
tion for  the  original 
weighted  sensitivity  matrix 
when  a number  of  controls 
must  be  dropped  during  an 
iteration. 


*May  be  in  compressed  form  if  controls  have  been  dropped 
during  the  iteration. 
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DATAT-6 


Input/ 

Variable  Output 


Namelist/ 

Common 


Definition 


L0CTS 


L0CUL 

L0CWG* 

L0CWS* 

L0CWU 

L0CXR 


HPRINT 

NLP 

NMAX 

NT 

NTNP 


I/O 


I/O 

0 

0 


N/C 


N/C 

c 

c 


Blank  common  location  of 
event  times  for  the  refer- 
ence and  all  trial  trajec- 
tories in  a single  iteration. 

Blank  common  location  of 
minimum  and  maximum  control 
bounds . 

Blank  common  location  of 
the  weighted  performance 
gradient. 

Blank  common  location  of 
the  weighted  sensitivity 
matrix. 

Blank  common  location  of 
the  control  weights. 

Blank  common  location  of 
the  6-component  state 
vectors  associated  with 
the  event  times  of  the 
reference  and  all  the  trial 
trajectories  of  a single 
iteration. 

Flag  designating  TOPSEP 
print  options. 

Integer  designation  for 
launch  planet. 

Maximum  number  of  iterations 

Number  of  targets. 

Vector  of  primary  bodies 
associated  with  the  event 
times  of  the  reference  and 
all  trial  trajectories  in 
a single  iteration. 


*May  be  in  compressed  form  if  controls  have  been  dropped 
during  the  iteration. 
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DATAT-7 


Input/  Namelist/ 

Variable  Output Common 

NTPH  0 C 


NTR  0 C 

NTYPE  0 C 

NU  0 C 

0PTEND  I/O  N/C 

0 SCALE  I/O  N/C 

PCT  I/O  N/C 

PRTURB  0 C 

PSI  o c 

PI  o c 


P1P2  0 C 


Definition 

Vec tor  of  control  phase 
numbers  associated  with  the 
event  times  of  the  refer- 
ence and  all  trial  trajec- 
tories in  a single  iteration 

Trial  trajectory  counter 
(NTR  = 1 indicates  the 
iteration  reference  trajec- 
tory). 

Flag  designating  the  type 
of  control  correction  to 
be  made  during  an  iteration. 

Number  of  controls. 

Cosine  of  the  optimization 
angle  which  is  used  to  test 
convergence  in  the  target- 
. ing  and  optimization  mode. 

Scale  on  the  performance 
index  when  simultaneously 
targeting  and  optimizing. 

Percentage  of  the  target 
error  to  be  removed  during 
an  iteration. 

Vector  of  control  perturba- 
tions; summary  of  H array. 

Out  of  plane  AV  direction 
angle  at  injection. 

Vector  of  net  cost  values 
for  the  reference  and  all 
trial  trajectories  evalu- 
ated during  a single  iter- 
ation. 

Vector  of  combined  target 
error  indices  and  net  cost, 
values  for  the  reference 
and  all  trail  trajectories 
evaluated  during  a single 
iteration. 


82 


DATAT-8 


Variable 

Input/ 

Output 

Namelist/ 

Common 

Definition 

P2 

0 

C 

Vector  of  target  error 
indices  for  the  reference 
and  all  trial  trajectories 
evaluated  during  a single 
iteration. 

RAD 

I 

c 

Number  of  degrees  in  one 
radian. 

S 

I/O 

N/C 

Target  sensitivity  matrix. 

SCMASS 

I 

C 

S/C  initial  mass. 

S0UT 

0 

C 

Target  sensitivity  matrix 
in  print-out  units. 

STATEO 

I 

C 

Initial  state. 

ST0L 

I 

N/C 

Test  variable  for  determin- 
ing linearly  dependent 
columns  of  the  weighted 
sensitivity  matrix. 

ST0RE 

I/O 

C 

Blank  common  variable. 

TARGET 

I/O 

N/C 

Vector  of  desired  target 
va lues . 

TAR0UT 

0 

c 

Desired  target  values  in 
print-out  units. 

TART0L 

I/O 

N/C 

Vector  of  all  possible  tar- 
get tolerances. 

THRUST 

I 

c 

Mission  thrust  controls. 

TL0W 

I 

N/C 

Limit  of  target  error  index 
below  which  optimization 
only  is  performed. 

TM 

I 

C 

Number  of  seconds  in  a day. 

TSTART 

I 

C 

Reference  trajectory  start 
time . 

TUP 

I 

N/C 

Limit  of  target  error  index 
above  which  simultaneous 
targeting  and  optimization 
is  discontinued  and  targeting 
only  is  initiated. 

83-A 


DATAT-9A 


Input/  Namelist/ 


Variable 

Output 

Common 

Definition 

U‘ 

0 

C 

Selection  of  controls  for  the 
specified  mode  run. 

ULIMIT 

I 

N 

Control  bounds. 

UWATE 

1/0 

N/C 

User  input  weights  on  controls. 

VPARK 

0 

C 

Parking  orbit  velocity  at  in- 
jection. 

WE 

0 

C 

Vector  of  target  weights. 

XMM 

0 

c 

Mean  motion  of  s/c  in  parking 
. orbit . 

AZMAX 

1/0 

N/C 

Maximum  launch  azimuth  con- 
straint . 

AZMIN 

1/0 

N/C 

Minimum  launch  azimuth  con- 
straint . 

IASTM 

1/0 

N/C 

Flag  specifying  the  method  of 
computing  the  targeting  sensi- 
tivity matrix. 

PRNML 

I 

N 

Logical  flag  specifying  that  the 
namelist  $TRAJ  be  printed  (TRUE) 
or  not  be  printed  (FALSE). 

RP1 

1/0 

N/C 

Inner  parking  orbit  radius. 

TGFUEL 

1/0 

N/C 

Fuel  capacity  of  tug. 

TUGISP 

1/0 

N C 

Specific  impulse  of  tug. 

TUGWT 

1/0 

N/C 

Dry  weight  of  tug. 

TUG 

0 

C 

Logical  flag  designating  injec- 
tion computations. 

Local  Variables: 

- 

Variable 

Definition 

K0UNT 

Control 

counter. 

Mission  time  corresponding  to  the  implemen- 
tation of  controls  chosen  from  the  elements 
of  the  THRUST  array. 


TIME 


Subroutines  Called; 

Calling  Subroutines: 
Common  Blocks? 


83-B 


DATAT-9B 


ZEROM,  C0FY,  UXV,  UNITV,  SCALE,  SUB,  VECMAG , 
UU^TV , PRINTD,  INJECT 

T0PSEP 

(BUNK),  C0NST,  CYCLE,  EDIT,  EPHEM,  GRID,  PRINT, 
PRINTH,  TIME,  T0P1,  T0P2 , TRAJ1,  TRAJ2 , W0RK, 
IASTM,  TUG 
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DA  TAT  - 1 1 


Determine:  U,  PRTURB, 

CNVRTU  if  THRUST  Or 
Initial  Cartesian  State 
Elements  Are  Used  As 
Controls 


f Are  Initial  > 
Orbital  Elements 
.Used  as  Controls?. 


Compute  the  Classical 
Orbital  Elements 
a,  e,  i,il  , f,  and 

periapsis  radisu  (r_) , & 
apoapsis  radius  (r  ) 


Determine  U,  PRTURB * And 
CNVRTU  If  ENGINE (1) , 
ENGINE (10)  Or  SCMASS 
Are  Used  As  Controls 


Determine  Which  Controls 
Are  Initially  Active,  On 
Bounds,  Or  Within  The 
Tolerance  Regions  Near 
The  Bounds 
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DATA- 12 
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DELU-1 


3.2.3 


Purpose 


Method : 


Subroutine:  DELU  (WS,  WG,  DPSI,  DP2,  NT,  NU,  NTYPE,  SINV, 
PG2,  DU1,  DU2 , DU). 

To  compute  the  control  correction  based  upon 

the  method  of  projected  gradients. 

The. projected  gradient  algorithm  used  in  TOPSEP 

is  described  as  follows.  Let: 

.U  = Set  of  control  parameters; 

E = Set  of  target  errors; 

F = Performance  index; 

.. 

G = Performance  gradient  v ^ u' * 

T = Set  of  targets; 

S = Sensitivity  matrix 


We  seek  a control  correction  A U Co  increase 
the  performance  (decrease  the  cost)  and 
decrease  the  target  error.  Then 

A u - U AUX  + p Ay2 

where 


T T -1 

AU2  =-Si  (SS  ) E 


and 


- ~/a  f2  A o2'  (I'P)  £ 

1|  (I-P)  £ il 


T T 

p - s (ss1)  s 
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DELU-2 


Remarks : 


Input /Output : 

Variable 

DPSI 

DP2 


-C: 

-C; 


for  targeting  only 
for  optimization 
for  optimization  only 
for  targeting 
DELU  is  called  only  after  transforming  the 
control  space  to  a weighted  space.  Thus,  WS 
and  WG  are  a weighted  target  sensitivity  matrix 
and  a weighted  performance  gradient  respectively 
The  control  corrections,  therefore,  are  also 
weighted. 


The  performance  correction  is  modified  to 
account  for  an  estimated  region  of  linearity 
(DP2).  This  control  correction  may  then  be 
represented  as  follows: 


AU  = REGI0N  ’*  (I-P)  G 


TT ■ 

REGION  =-/  ET(SST)  E * (1+DP22) 

gtg  - (SG)T(SST)'1(SG) 


Input/ 

Output 

Argument/ 

Common 

Definition 

I 

A 

Target 

during 

error  to  be  removed 
current  iteration. 

I/O 

A 

Estimated  region  of  linear 
ity  in  the  control  space. 
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DELU-3 


Input/ 

Variable Output 

DU  0 

DU1  0 

DU2  0 

NT  I 

NTYPE  I 


NU  I 

PG2  0 

SINV  0 


WG  I 

WS  I 

ALPHA 

Local  Variables: 

Variable 

ALPHA 

BETA 

Cl 


Argument/ 

Common Def  ini  tion 


A 

A 

A ■■ 

A 

A 


A 

A 

A 


A 

A 


Total  control  correction 
vector  (not  scaled). 

Performance  control  vector 
(not  scaled). 

Constraint  control  correc- 
tion (not  scaled). 

Number  of  controls. 

Flag  designating  the  type 
of  control  correction  to  be 
made  during  the  current 
itera  tion . 

Number  of  controls. 

Magnitude  of  the  projected 
gradient  squared. 

Pseudo- inverse  of  the  target 
sensitivity  matrix  if  NU 
NT;  actual  inverse  of  target 
sensitivity  matrix  if  NU  = 
NT. 

Performance  gradient. 

Target  sensitivity  matrix. 


Definition • 

Scale  on  DU1  when  computing  DU;  if 
not  making  a performance  correction 
ALPHA  set  to  0,  otherwise  set  to  1. 

Scale  on  DU2  when  computing  DU;  if 
not  making  a constraint  correction 
BETA  set  to  0,  otherwise  set  to  1. 

ET  * (S*ST)  * E 


DELU-4 


Variable 


Definition 


T 

G * G 


(S*G)T  * (S*ST)  * (S*G) 


P (=W0RK  (43)) 
REG  10  N 


ST  * (S*ST)_1  * S*G 

Scale  on  performance  correction 
accounting  for  the  assumed  region  of 
linearity. 


SG  (=W0RK  (37)) 


SST  (=sW0RK  (1)) 


Subroutines  Called:  C0PY,  INVSQM,  MMAB,  MMABT,  MMATB,  MMATBA,  ZER0M 


Calling  Subroutines:  SIZE 


Common  Blocks : 
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DELU-5 


Logic  Flow: 


92 -A 


DELU-6 


92-B 


DIRECT-1 


3.2.3A  Subroutine:  DIRECT  (DUl,  DU2,  DU,  SINV,  ULIMIT,  WG,  WS,  WU, 

NUD,  NTD) 

Purpose : To  compute  the  control  correction, AU,  . 

Method : The  method  of  projected  gradients  is  used  to  com- 

pute AUL . Preliminary  computations  include: 

o Determining  linear  dependency  among  columns 
of  the  sensitivity  matrix,  S,  thus  averting 
numerical  problems  when  computing  the  pseudo 
inverse  of  S. 

o Determining  which  controls  lie  on  their  re- 
spective bounds,  if  any,  and  which  control 
corrections  violate  the  control  constraints. 

o Determining  the  maximum  allowable  scale  fac- 
tor for  the  current  iteration. 

Input/Output : 


riable 

Input/ 

Output 

Argument/ 

Common 

Definition 

BIG 

I 

C 

0 

Large  constant,  1.E20. 

CTKETA 

0 

C 

Cosine  of  optimization  angle. 

DFMAX 

I 

C 

Maximum  increase  allowed  in 
the  cost  index  (F)  per 
iteration . 

DPSI 

0 

C 

Target  error  to  be  removed 
during  current  iteration. 

DP  2 

I/O 

C 

Estimated  region  of  linearity 
in  the  control  space. 

92-C 


DIRECT-2 


Variable 

Input/ 

Output 

Argument/ 

Common  Definition 

DU 

0 

A 

Unsealed  total  control 
correction . 

DU1 

0 

A 

Unsealed  performance  con- 
trol correction. 

DU2 

0 

A 

Unsealed  constraint  control 
correction. 

E 

0 

C 

Target  errors  of  the  current 
trajectory . 

EMAG 

0 

C 

Target  error  index. 

G 

0 

C 

Performance  gradient. 

GAMA 

0 

c 

Scale  factor  providing  the 
best  control  change. 

GAMMA 

0 

c 

Vector  of  trial  trajectory 
control  change  scale  factors. 

GTRIAL 

I/O 

c 

One-dimensional  search 
constants . 

INACTV 

I/O 

c 

Vector  denoting  which  con- 
trols are  active  (1),  on 
bounds  (0),  or  within 
bound  tol. 

KGMAX 

0 

c 

Index  identifying  the  con- 
trol which  will  reach  bound 
if  AIL  is  scaled  by  GMAX. 

ITERAT 

I 

c 

Iteration  counter. 

L0CCDC 

I 

c 

Blank  common  location  of  the 
inner  products  of  the . columns 
of  the  sensitivity  matrix. 

L0CCM 

I 

c 

Blank  common  location  of  the 
magnitude  of  the  sensitivity 
column  vectors. 

L0CSDU 

I 

c 

Blank  common  storage  location 
for  the  original  control  cor- 
rection vectors  when  a number 
of  controls  must  be  dropped 
during  an  iteration. 

92 -D 


DIRECT -3 


iable 

Input/ 

Output 

Argument/ 

Common 

Definition 

i^cswt; 

T 

C 

Blank  common  storage  loca- 
tion for  the  original 
weighted  performance  gradi- 
ent when  a number  of  controls 
must  be  dropped  during  an 
itera  tion. 

L0CSWS 

I 

C 

Blank  common  storage  loca- 
tion for  the  original 
weighted  sensitivity  matrix 
when  a number  of  controls 
must  be  dropped  during  an 
iteration. 

MFRINT 

I 

c 

Array  of  TOPSEP  print 
flags. 

NT 

I 

c 

Number  of  targets. 

NTD 

I 

A 

Integer  used  to  variably 
dimension  SINV  and  WS . 

NTYPE 

I 

C 

Flag  designating  the  type 
of  control  correction  to  be 
made  during  an  iteration. 

NU 

I 

c 

Number  of  controls. 

NUD 

I 

A 

Integer  used  to  variably 
dimension  DU,  DU1,  DU2, 
SINV,  ULIMIT,  WG,  WS  and 
WU. 

0SCALE 

I 

C 

Scale  on  the  cost  index  when 
simultaneously  targeting  and 
optimizing. 

PCT 

I 

c 

Percentage  of  the  target 
error  to  be  removed  during 
an  iteration. 

PI 

0 

c 

Vector  of  net  cost  values 
for  the  reference  and  all 
trial  trajectories  evaluated 
during  a single  iteration. 

92-E 


DIRECT -4 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

P1P2 

0 

C 

Vector  of  combined  target 
error  indices  and  net  cost 
values  for  the  reference  and 
all  trial  trajectories  evalu- 
ated during  a single  iteration, 

P2 

0 

C 

Vector  of  target  error  in- 
dices for  the  reference  and 
all  trial  trajectories  evalu- 
ated during  a single  Iteration 

S 

I 

C 

Target  sensitivity  matrix. 

SINV 

0 

A 

Test  variable  for  determin- 
ing linearly  dependent 
columns  of  the  weighted 
sensitivity  matrix. 

u 

I 

C 

Selection  of  controls. 

ULIMIT 

I 

A 

Bounds  on  controls. 

WE 

I 

C 

Vector  of  target  weights. 

WG 

0 

A 

Weighted  performance 
gradient . 

WS 

0 

A 

Weighted  sensitivity  matrix. 

WU 

0 

A 

Control  weights. 

DP1DS 

0 

C 

The  first  derivative  of  the 
net  cost  function  (PI)  evalu- 
ated at  % = 0. 

DP12DS 

0 

C 

The  first  derivative  of  the 
combined  net  cost  function 
and  target  error  function 
(P1P2)  evaluated  at  % = 0. 

DP2DS 

0 

C 

The  first  derivative  of  the 
target  error  function  (P2) 
evaluated  at  ¥ = 0. 

92-F 


DIRECT-5 


Local  Variables: 


Variable 


Definition 


DU1MAG  (=W0RK(1)) 

E PRIME  (=WORK(10)) 

ES  (=WORK  (16)) 

GAM  (=WORK  (36)) 

O’ MAX 

KDEP 

LDEP 

MU 

SSINV  (=WORK  (80)) 

UNEW  (=tfORK  (60)) 

Subroutines  Called:  C0PY,  GENMIN, 

Calling  Subroutines:  PGM 


Magnitude  of  Au^. 
Weighted  target  errors. 


Vector  of  maximum  allowable  scale 
factors  for  each  element  of  the 
control  correction. 

Estimate  of  the  scale  factor  which 
will  cause  the  DFMAX  constraint 
to  be  violated. 

Number  of  controls  on  bounds. 

Vector  indicating  which  controls 
are  to  be  dropped  from  the  con- 
trol correction. 

Number  of  active  controls  in  the 
current  iteration. 

Storage  for  the  pseudo-inverse 
of  the  sensitivity  matrix. 

Updated  control  vector  used  to 
compute  INACTV. 

STEP,  DELTU 


(BLANK),  C0NST,  EDIT,  T0P1,  T0P2 , W0RK, 
SIZE 


Conmon  Blocks: 


92-1 

DTDUO -1 

3.2.3B  Subroutine 

: DTDUO 

Purpose : 

To  compute  the  appropriate  columns  of  the  target- 
ing sensitivity  matrix  which  relate  changes  in 
target  values  to  changes  in  the  initial  state. 

Input/Output : 

Variable 

Input/-  Argument/ 

Output  Common 

Definition 

ETA  I A 

IJH  I C 

M I A 

N I A 

PHI  I C 

SPRIME  0 A 

Local  Variables 

Variable ___________ 


DXFDXO 

Sensitivity  of  final  state  to 
changes  in  selected  elements  of 
initial  state 

Subroutines  Called: 

C0PY,  MMAB 

Calling  Subroutines: 

STM TAR 

Common  Blocks: 

IASTM,  T0P2 , W0RK 

Logic  Flow: 

See  listing 

Sensitivity  of  targets  to 
changes  in  final  state 

Array  indicating  active  controls 

Number  of  targets 

Number  of  controls 

State  transition  matrix 

Partition  of  sensitivity  matrix 

Definition 
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FEGS-1 


3.2.4 
Purpose : 

Method : 


Subroutine : FEGS 

To  calculate  the  performance  index,  the  target 
errors,  the  targeting  sensitivity  matrix,  and 
the  performance  gradient. 

FEGS  provides  the  interface  between  the  abstract 
control  space  targeting,  and  optimization  search, 
and  the  actual  low  thrust  trajectory  generation. 
Trajectory  parameters  such  as 

1)  Initial  conditions 

o ecliptic  state  or  equitional  state 
relative  to  primary  body; 
o initial  orbital  elements 
o spacecraft  mass; 

2)  Spacecraft  engine  characteristics; 

3)  Thrust  controls; 

are  reset  as  specified  by  non-zero  values  of  the 
H array  (control  perturbations).  Subsequently, 
the  trajectory  propagator  is  called  and  trajectory 
information  is  collected. 

Subroutine  FEGS  performs  two  major  functions  for 
TOPSEP  depending  upon  the  input  value  of  IT.  If 
IT  equals  1,  the  target  sensitivity  matrix  (S)  and 
the  performance  gradient  (G)  are  computed  by  finite 
differencing.  A trajectory  is  generated  for  each 
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FEGS-2 


Remarks : 


Input /Output : 
Variable 

E 


perturbed  control  resulting  in  the  computation  of 
a column  of  the  S matrix  and  an  element  of  the  G 
vector.  The  perturbations  to  the  controls  are 
input  in  PERT,  a variable  in  the  argument  list. 

If  IT  is  -1,  a trial  trajectory  is  generated.  In 
this  case  all  the  specified  trajectory  parameters 
are  reset  before  the  trajectory  propagator  is 
called.  After  the  trajectory  is  generated,  the 
performance  index  (F)  and  the  target  errors  (E) 
are  evaluated.  If  IT  is  0,  a grid  trajectory  is 
generated.  Basically  the  same  logic  flcrw  is  fol- 
lowed as  for  the  trial  trajectory  generation. 

The  primary  differences  are  that  only  one  element 
of  PERT  is  non-zero  and  that  no  trajectory  event 
times  are  stored  in  blank  common. 

When  the  STM  method  of  targeting  is  flagged 
(IASTM  = 1)  subroutine  STMTAR  constructs  F,  E, 
and  S,  Subroutine  FEGS  only  generates  the  trial 
trajectories  and  the  final  reference  trajectory. 

Input/  A r gumen  t / 

Output Common Definition 

0 C Target  errors  of  the  current 

trajectory . 


ENGINE (1)  I/O 


C 


Power  from  solar  array  at  1 au. 
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PEGS -3 


Input/  Argument/ 

Variable  Output Common 


Definition 


ENGINE (10)  I/O  C 

F I C 

FTR(l)  I 0 

G O C 

IT  I A 


ITERAT  I C 

KMAX  I c 

L0CM  I 0 

L0CTS  I C 


NLP  I c 

NT  I C 

C 


Exhaust  velocity. 

Performance  index. 

Performance  index  of  the 
reference  trajectory  for 
the  current  iteration. 

Performance  gradient, 

1,  generate  perturbed 
trajectories  and 
compute  S and  G 

0,  generate  a grid  tra- 
jectory and  compute 
F and  E 

-1,  generate  a trial  tra- 
jectory and  compute 
F and  E. 

Iteration  counter  (IT  = 

1 or  -1);  Control  iden- 
tifier for  grid  submode 
(IT  = 0). 

Number  of  thrust  controls 
(THRUST  (I,J))  chosen  to 
be  elements  of  U, 

Blank  common  location  of 
the  current  s/c  mass. 

Blank  common  location  of 
event  times  for  the  ref- 
erence and  all  trial 
trajectories  in  a single 
iteration. 

Launch  planet  identifier 
(normally  Earth). 

Number  of  targets. 

Trial  trajectory  counter. 


NTR 


I 
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FEGS-4 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

NU 

I 

C 

Number  of  controls. 

PERT 

I 

A 

Vector  of  control  perturba- 
tions . 

PSI 

I/O 

C 

Out  of  plane  direction 

angle  at  injection. 

S 

0 

C 

Target  sensitivity  matrix. 

SCMASS 

I/O 

C 

S/C  mass  corresponding  to 
the  trajectory  start  time 
(TSTART) . 

STATEO 

I/O 

C 

S/C  state  corresponding  to 
the  trajectory  start  time 
(TSTART). 

STATR 

I/O 

C 

Array  of  initial  states 
for  the  reference  and  all 
trial  trajectories  evalu- 
ated during  the  current 
itera  tion. 

TARGET 

I 

C 

Vector  of  desired  target 
values , 

TARN0M 

0 ' 

c 

Target  values  evaluated 
for  the  reference  trajec- 
tory. 

TARPAR 

0 

c 

Target  values  of  the  most 
recently  generated  trajec- 
tory. 

TARTR 

I/O 

c 

Target  values  of  the  ref- 
erence and  all  trial 
trajectories  evaluated 
during  a single  iteration. 

TM 

I 

c 

Conversion  constant: 
Number  of  seconds  in  a 
day. 

TSTART 

I/O 

c 

Trajectory  start  time. 
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FEGS-5 


Varia  ble 

Input/ 

Output 

Argument/ 

Common 

Definition 

U 

I 

C 

Selection  of  controls  for  the 
specified  mode  run. 

RPO 

I 10 

C 

Initial  periapsis  radius 

RAO 

1/0 

C 

Initial  apoapsis  radius 

XINCO 

1/0 

C 

Initial  inclination 

0MEGAO 

1/0 

C 

Intiial  longitude  of  ascending 
node 

S0MEGO 

1/0 

C 

Initial  argument  of  periapsis 

TRUANO 

1/0 

c 

Initial  true  anomaly 

Local  Variables: 

Variable 

Definition 

NCTR0L 

The  nominal  value  of  the  control  plus  its 
per turba  t ion . 

ITRIAL 

Trial  step  counter. 

KALL 

Statement  number  to  which  the  logic  flow 
returns  after  S and  G are  computed. 

K0UNT 

Control 

index. 

Subroutines  Called:  CARTES,  C0NIC,  C0PY,  PR INTI,  VECMAG,  MAT0UT, 

TREK 
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FEGS-6 


Calling  Subrou Lines:  GRID,  PGM,  T0PSEP 

Common  Blocks:  (BLANK) , C0NST,  EDIT,  EPHEM,  TIME,  T0P1, 

T0P2 , TRAJ1,.  TRAJ2,  W0RK 
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FEGS-7 


103 


FGAMA-1 


3.2.5  Subroutine:.  FGAMA  (IS) 


Purpose: 


Method : 


To  evaluate  the  net  cost  index  and  target 
error  index  of  a trial  trajectory. 

Subroutine  FGAMA  scales  the  control  correction 
A u by  GAMMA (NTR) , which  is  computed  in  GENMIN, 
and  calls  FEGS  to  generate  a trial  trajectory. 
Preceding  the  call  to  FEGS  for  the  second  trial 
trajectory  generation,  a computation  is  made  to 
estimate  the  scale  factor  which  will  reduce  the 
value  of  the  final  spacecraft  mass  to  some 
specified  limit  (FTR(l)  - DF).  This  scale 
factor  becomes  the  maximum  allowable  scale  for 
future  “trial  steps,  unless  the  scale  is  further 
rp  r trie  ted  bv  explicit  control  bounds.  However: 


no  additional  constraint  is  placed  on  the  scale 
factor  if  the  final  spacecraft  mass  is  increased 
by  taking  larger  trial  steps  in  the  AH  direc- 
tion. The  scale  factor  is  not  restricted  due 
to  the  performance  constraint  prior  to  the 
second  trial  step  for  lack  of  information  to  make 


Remarks : 


an  accurate  estimate. 

The  cost  index  F is  actually  the  negative  of 
the  final  spacecraft  mass.  If  the  cost  index 
is  decreasing  (becoming  more  negative)  in  the 
Au  direction  the  estimation  loop  is  bypassed. 
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F GAMA -2 


If  the  loop  must  be  entered  because  the  cost 
is  increasing,  a modification  must  be  made  to 
the  cost  index  values  (FTR)  so  that  the  rou- 
tines MINMUM  and  THPM  may  be  used.  To  find 
the  minimum  value  of  the  final  spacecraft  mass 
the  negative. of  the  cost  index  is  minimized  in 
the  Au  direction. 

Input/Output : 

Input/  Argument/ 

Variable Output Common Definition  

Maximum  percentage  decrease 
allowed  in  the  s/c  final 
mass  for  iteration. 

Target  errors  of  -the  cur-  - 
rent  trajectory. 

Target  tolerances. 

* Array  of  target  errors  of 
the  reference  and  all  trial 
trajectories  evaluated  dur- 
ing a single  iteration. 

Cost  index  of  the  current 
trajectory. 

Vector  of  cost  indices  of 
the  reference  and  all  trial 
trajectories  evaluated  dur- 
ing a single  iteration. 

Performance  gradient. 

Vector  of  trial  trajectory 
control  change  scale  fac- 
tors . 

Maximum  allowable  value 
for  GAMMA. 


DFMAX  I C 

E O C 

ET0L  I C 

ETR  I/O  C 

F 0 C 

FTR  I/O  C 

G 0 C 

GAMMA  I C 

GTRIAL (2 ) I/O  C 
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F GAMA -3 


Input/  Argument/ 

Var  lab  le Output Common 

IS  I A 

L0CDU  I C 

L0CSDU  I C 


L0CSI  I C 

NT  I C 

NTR  0 C 

NU  I C 

0 SCALE  I C 

PI  0 C 

P1P2  0 C 

P2  0 C 


TARPAR  0 C 


Definition 

Trial  trajectory  number. 

Blank  common  location  of 
the  control  correction 
vector  An* 

Blank  common  location  of 
the  trial  step  (GAMMA (NTR)* 
AU);  used  as  such  only 
when  generating  trial  tra- 
jectories . 

Blank  common  location  of 
the  pseudo  inverse  of  the 
weighted  sensitivity 
matrix . 

Number  of  targets. 

Trial  trajectory  counter 
(NTR  = 1 for  the  iteration 
reference  trajectory). 

Number  of  controls. 

Scale  on  the  net  cost 
index  PI  when  simultane- 
ously targeting  and  opti- 
mizing. 

Vector  of  net  cost  values 
for  the  reference  and  all 
trial  trajectories  evaluated 
during  a single  iteration. 

Vector  of  combined  target 
error  indices  and  net  cost 
va lues . 

Vector  of  target  error 
indices  for  the  reference 
and  all  trial  trajectories 
evaluated  during  a single 
iteration. 

Target  values  of  the  most 
recently  generated  trajec- 
tory. 
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Input/  Argument/ 

Variable Output Common 


Definition 


WE  I C Vector  of  target  weights. 


Local  Variables: 

Variable Definition 


DF 

DP  IDS 

EPRIME  (=W0RK ( 1 ) ) 
FMAX 

FTEST  (=W0RK(55) ) 
GDU  (=W0RK(13) ) 

GTR(l)  (”W0RK(5O) ) 
GTR  (2  ) (=W0RK(51)  ) 
GTR (3 ) (=W0RK(52>) 
GTR (4)  (=W0RK(53)  ) 
GTS  C-W0RK(7)) 

IERR 


Maximum  decrease 
s/c  mass. 

First  derivative 
GAMMA (1)  = 0. 

Vector  of  target 
tolerances . 


allowed  in  the  final 
of  PI  evaluated  at 
errors  divided  by 


Estimated  maximum  cost  evaluated  in 
the  4u  direction. 

Vector  of  cost  indices  corresponding 
to  the  scale  factors  GTR’CI),  1 = 1,  3 
where  GTR(l)  < GTR (2)  < GTR (3) . 

Linearized  approximation  to  change 
in  cost  function  required  to  perform 
a minimum  - norm  correction  back  to 
the  targeted  manifold. 

GAMMA (1) . 

MIN  { GAMMA (2),  GTR (4)  } 

MAX  { GAMMA(2),  GTR (4)  } 

Scale  factor  corresponding  to  FMAX, 

Intermediate  storage  in  GDU  computa- 
tion. 

Flag  set  to  1 to  direct  MINMUM  and 
THPM  to  compute  GTR (4)  given  F(GTR(4)) 
using  the  prescribed  polynominal 
expansion. 


Subroutines  Called: 

Calling  Subroutines: 
Common  Blocks: 
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C0PY,  FEGS,  MAT0UT,  MINMUM,  MMAB,  MMATB, 
liMATBA,  NEGMAT,  SCALE,  THPM,  ZER0M 

GENMIN 

(BLANK),  EDIT,  T0P1,  T0P2,  W0RK 
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GENMIN  - 1 


3.2.6  Subroutine : 
Purpose : 

Remarks : 

Input /Out put : 

Variable 

DYDX1 

GTRIAL(l) 

GTRIAL(2) 

GTRIAL(3) 

GTRIAL(A) 

GTRIAL(5) 

MIN 
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GENMIN  (X,  Y,  DYDX1,  GTRIAL,  YES,  MIN) 

To  choose  the  best  control  change  scale  factor 
based  on  a one-dimensional  search  in  the  new 
control  vector  direction. 

The  best  scale  factor  will  be  defined  as  that 
which  provides  for  the  minimum  value  of  the  net 
cost-function  as  described  in  subroutine  SIZE. 
The  one  dimensional  search  will  consist  of  a 
series  of  second  and  third  order  polynomial 
curve  fitting  techniques. 


Input/  Argument (A)/ 

Output Common  (C) Definition 


I A Value  of  the  first 

derivative  of  the  net 
cost  function  evaluated 
at  X(1)=0 


I A-  If  X(I+1)  <GTRIAL(1)*X(I), 

then  X(I-fl)  is  set  equal 
to  GTRIAL (1)  *X(I) 


I 


A Maximum  allowable  scale 

factor  value 


I A The  percentage  of  X(I+1) 

to  X(I)  above  which  the 
search  will  be  terminated. 


I 


I 


0 


A The  percentage  of  YES (I)  to 

Y(I+2)  below  which  the 
search  is  terminated 

A Flag  designating  the  extent 

of  curve  fitting  in  the 
new  control  direction  (i.e., 
GTRIAL(5)=4  signifies  all 
four  techniques  may  be  used) 

A Pointer  designating  the 

minimizing  scale  factor 

A X(1)=0,  value  of  scale 

factor  associated  with 
current  net  cost  function  value 


X(l) 


I 


GENMIN-2  * 
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Input/Output ; - Continued 


Variable 


Input/  Argument (A)/ 

Output Common(C) Definition 


X(2)  I A 

X(3)  0 A 

X(4)  0 A 

X (5 ) 0 A 

X(6)  0 A 

Y(  1)  I A 

Y (2)  + Y (6)  0 A 

YES  0 A 


Value  of  scale  factor  for 
first  trial  net  cost-function 
evaluation 

Scale  factor  returned  from 
’’two  point,  one  slope1' 
curve  fitting  routine 

Scale  factor  returned  from 
’’three  point,  one  slope" 
curve  fitting  routine 

Scale  factor  returned  from 
"three  point"  curve 
fitting  routine 

Scale  factor  returned  from 
"four  point”  curve  fitting 
routine 

Value  of  current  net 
cost-function 

Trial  net  cost-function 
values  associated  with 
X(2)->  X(6) 

Vector  of  estimates  of  net 
cost-function  values 
returned  from  the  curve 
fitting  routines 


Local  Variables: 


Variable Definition 

MAX  The  number  of  trial  net  cost-function 

values  which  must  be  tested  for 
the  local  minima 

MINSV  The  number  of  a trial  net  cos t-f unction 

• value  which  is  a local  minimum  but 
not  necessarily  the  global  minimum 
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Subroutines  Called:  BUCKET,  FGAMA,  MINMUM 

Calling  Subroutines:  SIZE 

Common  Blocks : None 


114 


115 


GENMIN-5 
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GENMIN-7 


1 


GENMIN-8 
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GRID-1 


V 


3.2.7A  Subroutine:  GRID 


Purpose : 


Method : 


Remarks : 


Input/Output : 
Variable 


CNVRTT 


E 


To  generate  a family  of  trajectories  in  order 
to  obtain  performance  and  error  index  infor- 
mation. 

Consider  an  NU-dimensional  control  space  and  a 

nominal  control  vector  u.  A grid  of  trajectory 

target  error  indices  and  performance  indices  is 

generated  based  upon  two  steps  from  the  nominal 

control  vector  in  each  control  direction.  The 

first  step  in  the  1th  control  direction  is 
th 

specified  by  the  i element  of  PRTURB.  The 
second  step  for  the  same  control  is  specified 
by  HMULTi  * PRTURB ± . 

The  user  can  take  advantage  of  the  cycling 
capability  of  the  TOPSEP  mode  to  specify  more 
than  two  steps  in  each  of  the  control  directions 
by  stacking  cases. 


Input/ 

Argument/ 

Output 

Common 

Definition 

I 

C 

Conversion  constants  from 
internal  target  units  to 
output  target  units. 

I 

C 

Target  errors  of  current 
trajectory.  ' 

ETR(1,  1)  0 


C 


Target  error  index  of 
nominal  trajectory. 
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Input/ 

Output 

Argument/ 

Common 

F 

I 

C 

FTR(l) 

0 

C 

HMULT 

I 

HERAT 

0 

c 

K0NVRJ 

0 

c 

LABELT 

I 

c 

L0CDU1 

I 

c 

L0CDU2 

I 

c 

L0CEM1 

I 

c 

L0CEM2 

I 

c 

L0CEN 

I 

c 

L0CE1 

I 

£ 

Definition 

Performance  index  of 
current  trajectory. 

Performance  index  of 
nominal  trajectory. 

Vector  containing  the 
scale  on  the  elements  of 
PRTURB  for  the  second 
step  in  each  control  di- 
rection. 

Index  specifying  which 
control  element  is  being 
changed. 

Index  specifying  the  step 
number  in  the  control  di- 
rection under  consideration. 

Hollerith,  labels  for  spec- 
ified targets. 

Location  in  blank  common 
of  the  first  control  steps. 

Location  in  blank  common 
of  the  second  control 
steps . 

Location  in  blank  common 
of  the  target  error  indices 
associated  with  the  first 
control  steps. 

Location  in  blank  common 
of  the  target  error  indices 
associated  with  the  second 
control  steps. 

Location  in  blank  common 
of  the  target  errors  of  the 
nominal  trajectory. 

Location  in  blank  common 
of  the  target  errors  associ- 
ated with  the  first  control 
steps. 
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Variable 

L0CE2 

L0CF1 

L0CF2 

NT 

NTR 

NU 

PRTURB 

ST0RE 

WE 

W0RK 

Local  Variables: 
Variable 
PERT  ( 


Input/  Argument/ 

Output Common Definition 


I 


I 


I 


I 

I 


I 


C 


C 


c 


c 

c 


c 


Location  in  blank  common 
of  the  target  errors 
associated  with  the  second 
control  steps. 

Location  in  blank  common 
of  the  performance  indices 
associated  with  the  first 
control  steps. 

Location  in  blank  common 
of  the  performance  indices 
associated  with  the  second 
control  steps. 

Number  of  targets. 

Flag  used  to  set  the 
branch  of  logic  followed 
in  FEGS  (always  set  to  1). 

Number  of  controls. 


C Perturbations  to  the  con- 

trols for  the  first  step 
in  each  control  direction. 

C Blank  common  variable  for 

storage. 

C Vector  used  to  compute 

target  error  index,  containing 

1 — 2 

TART0L(I) 

C Working  storage. 


Definition 

UUATE)  Vector  used  to  transfer  the  control 

steps  to  FEGS  where  F and  E are 
computed. 
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WET0L  ( = S) 

/ 


Array  whose  off-diagonal  elements  are 
zero  and  whose  diagonal  elements  are 


WE  (I) 


123-B 


INJECT -1 


3 . 2 . 7 B Subroutine : INJECT 

Entry  Points: 

TUG IN J 

Purpose ; To  generate  packing  orbit  transfer  data 

Method : The  analytic  discussion  of  the  injection  process 

may  be  found  in  Reference  1,  section  9.5,  page 
129. 


Remarks : Subroutine  INJECT  consists  of  two  related 

computational  blocks.  Each  block  corresponds 
to  an  entry  point. 

o INJECT,  computation  of  outer  parking  orbit 
parameters:  PRO,  PINC,  PTO,  DELVO,  CHI, 

and  PS I. 

o TUGINJ,  computation  of  inner  parking  orbit  and 
fuel  requirements  for  the  parking  orbit  transfer. 

Input/Output: 


Variable 

Input/ 

Output 

Argument/ 

Common 

AZMAX 

I 

C 

AZMIN 

I 

C 

CHI 

I/O 

C 

DELVO 

I/O 

C 

ECEQ 

I 

C 

H 

I 

C 

Definition 

Maximum  launch  azimuth  constraint 

Minimum  launch  azimuth  constraint 

In-plane  AV  direction  angle  at 
injection . 

AV  at  injection. 

Transformation  matrix  from  Earth 
equatorial  to  ecliptic. 

Array  of  control  perturbations 
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INJECT- 2 


Input/  Argument/ 


Variable 

Output 

Common 

INJL0C 

I 

C 

NLP 

I 

c 

PINC 

I/O 

c 

PMASS 

I 

c 

PRO 

I/O 

c 

PSI 

I/O 

c 

PTO 

I/O 

c 

RAD 

I 

c 

RP1 

I 

c 

SCMASS 

I 

c 

STATEO 

I/O 

c 

TGFUEL 

I 

c 

TUG 

I 

c 

TUGISP 

I 

c 

TUGWT 

I 

c 

U 

I 

c 

VPARK 

I/O 

c 

XMM 

I/O 

c 

Definition 

Location  of  injection  parameters 
in  control  vector. 

Launch  planet  designation. 

Ecliptic  inclination  of  outer 
parking  orbit. 

Vector  of  planetary  masses. 

Geocentric  radial  distance  to 
S/C  at  injection. 

Out-of-plane  dV  direction  angle 
at  injection. 

Injection  time  relative  to  launch 
epoch. 

Angle  conversion  constant  (radians 
to  degrees). 

Inner  parking  orbit  radius. 

Initial  S/C  mass. 

Initial  S/C  state. 

Fuel  capacity  of  tug  vehicle. 

Logical  flag  specifying  injection 
computations  if  TRUE. 

Specific  impulse  of  tug  vehicle. 

Dry  weight  of  tug  vehicle. 

Control  vector. 

Parking  orbit  velocity  at  injection. 

S/C  mean  motion  in  outer  parking 
orbit . 
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INJECT-3 


Local  Variables: 

Variable 

ANGLE  (=W0RT(3O)) 

DELVA  (=W0RK(32) ) 
DELVB  (=W0RK(33)) 
EC  (=W0RK(4O) ) 

EQIMkX  (=WORK(28) ) 
EQIMIN  (=WORK(29) ) 
EQll  (=W0RK(31) ) 

EQ12  (=W0RK(27 ) ) 

GRAV 

FHIIAT 

STATEQ  (=WORK(21) ) 
WFUELA  (=WORK(35) ) 
WFUELB  (=WORK(36) ) 
WFUELT  (=W0RK(38) ) 
WT0T  (=WORK(34) ) 

XECC 


Definition 

Plane  change  required  during  parking 
orbit  transfer.  • 

First  impulsive  4 V* 

Second  impulsive  ^V. 

Eccentricity  of  hyperbolic  escape  orbit 
for  single  maneuver  trajectory. 

Maximum  equatorial  inclination  constraint. 

Minimum  equatorial  inclination  constraint. 

Equatorial  inclination  of  inner  parking 
orbit. 

Equatorial  inclination  of  outer  parking 
orbit. 

Gravitational  constant. 

Latitude  of  launch  site. 

Initial  state  in  equatorial  coordinates. 

Fuel  required  for  first  tug  maneuver. 

Fuel  required  for  second  tug  maneuver. 

Total  fuel  requirement. 

Total  tug  weight  plus  payload  prior  to 
any  maneuvers. 

Eccentricity  of  outer  parking  orbit. 


123-E 


INJECT -4 


Subroutines  Called: 

Calling  Subroutines: 
Common  Blocks ; 


ADD,  MMATB,  SCALE,  UDOTV,  UNITV,  UXV,  VECMAG 
ANGMOD,  CARTES,  CONIC,  COPY,  MMAB  NEGMAT 

PGM,  FEGS , TREK,  STMTAR 

C0NST,  EPHEM,  T0P1,  T0P2,  TRAJl,  TRAJ2,  TUG, 
W0RK,  PRINTH 


Logic  Flow : 


See  listing 
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3,2,8  Subroutine : MINMUM  (X,  Y,  DYDX1,  XMIN,  YMIN,  IERR) 
Entry  Points: 


THPM 

THP0SM 

F0PMIN 

Purpose: 


Input/Output: 

Variable 

DYDX1 


IERR 


X 


XMIN 


Y 


YMIN 


To  estimate  a local  minimum  of  the  cost 
function  Y(X)  and  the  minimizing  independent 
variable  X*  by  fitting  selected  sample  points 
with  a quadratic  or  cubic  polynomial. 


I/O 

I 


0 


I 


0 


I 


0 


Argument (A)/ 

Common  (c)  Definition 

A Value  of  the  first  derivative 

of  Y with  respect  to  X 
evaluated  at  X(l)  * 0. 

A Flag  whose  non- zero  value 

indicates  that  two  of  the 
given  X values  are  identical. 
A Vector  of  independent 

variable  sample  values 
A Minimizing  independent 

variable  X* 

A Vector  of  cost  function 

sample  values 

_ a Local  minimum  of  the  cost 


function,  y(X*) 
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MINMUM-2 


Local  Variables: 
Variable 
A 

Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks : 

Method : 


Case  1 1 


Definition 

Cubic  polynomial  coefficients 

None 

GENMIN,  FGAMA 
None 

The  function  Y(X).is  approximated  by  either  a 
second  or  third  order  polynomial  in  order  to 
compute  analytically  the  minimizing  parameter 
X*.  The  polynomial  approximation  is  of  the  form 
n 

Y(X)  = P(X)  - 2T  xl 

i=0  ' 

where  n = 2 or  n = 3 . The  following  four  cases 
describe  the  method  of  approximation  and  the 
resulting  minimization  process 

Y is  fitted  with  a quadratic  polynomial  based  on 

1)  Y(0) 

2)  dY. 
dX!X=0 

3)  Y (X  ) where  X >0  is  an  initial  estimate  of  X* 

o o 

The  quadratic  polynomial  coefficients  are 

calculated  from  the  formulae 

a = Y (0) 
o 


_ dY) 

ai  dx!x=o 


Y (X  )-a 
o o 

a2  X~2 

o 
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Case  2 


The  independent  variable  value  minimizing  the 
quadratic  is 


Y is  fitted  with  a cubic  polynomial  based  on; 

1)  y (o) 

2)  ^1 

; dX 'x-0 

3)  Y(Xq)  where  Xq>0  is  a sample  value 

4)  Y(X1)  where  X1>0  is  a sample  value 

The  cubic  polynomial  coefficients  are  calculated 
from  the  following  formulae 

X = max  {Xo,  Xx} 

o C » min{  XQ,  X1  } / * 
ao  = Y(0) 

= ill 

al  dX  Jx=0 

[Y (Xa)  - a3 Y(X)  - Xa(l-m)  a 

1-rt 


-(l+a+a2)aQ  ](X2a2) 

T Xaa,  + a (l*ki)  + a2Y(X)  - Y(aX)  ~|(X3a2)  1 

a3  • L 1 ° : I=S  J 

The  independent  variable  value,  X*  minimizing  P is 
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Case 


A quadratic  polynomial  is  fitted  to  Y(X^) , Y(X^), 

Y(XJ  where  X , X , X are  greater  than  or  equal 
Z O 1 ^ 

to  zero  and  represent  sample  values  of  X (not 
necessarily  the  same  values  as  in  prior  cases) . 
It  is  assumed  that: 

1)  x<  x <x0 

o 1 2 

2)  Y(Xo)>Y(X1)<Y(X2) 

The  formulae  for  the  quadratic  coefficients 
are  as  follows: 


b.  . 

= X. 

X. 

i 

3 

c.  . 

- X. 

+ x. 

ij 

1. 

J 

d . , 

= X. 

- x. 

ij 

1 

3 

a 

o d^-,  d 


01  02 


Y (X  ) + 
o 


^02  b01 
d,rtd_„  1 d„rtd. 


‘10  12 


‘20  21 


+ ■ y(x2) 


’12 


d01d02 


*<«„>  - «V  - si-  ,0V 


10  12 


l20  21 


Y(X  ) Y(XX)  + Y(X2) 


a2  d„,d 


0r02  dl0dl2  d20d21 


The  independent  variable  value  is  the  same  as  in  Case  1* 


X*  - 


- a 


2a 


Case 
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A cubic  polynomial  is  fitted  to  Y(X^),  Y(X^), 
y(X2)  , Y(X3>.  The  formulae  for  the  polynomial 
coefficients  are  as  follows 
Y.  “ Y(Xi) 


Bij  “ Xi  Xj 

du  " xi  - xj 


dl0d20d30 


dlOd21d31 


d20d21d32  d30d31d32 


<VW  T ,WV.Y  , 2VW  . y„  - 

A2  * a 


10  20  30 


dlOd21d31  1 d20d21d32  " 


(X  +X,+X0)  . 
o 1 2 Y 

d30d31d32  3 


Ai  = 


(B31+B31+B32)  „ , (B20+B30+B32)  v _ (B10+B30+B31)  + 

■— _ :*  1 ■ 1 ~ - • Y i . i i * -t  j A <4 


dl0d20d30 


dlOd21d31 


d20d21d32 


^B10+B20+B21) 

d30d31d32 


A *=  Y - (A.X+A.X  3+A  X 3) 
o o 1 o 2 o 3o 


The  independent  variable  value  minimizing  P is  the  same  as 
that  in  Case  2: 


X* 


A2  ~ 3A3A1 


' ].<3i3> 


rl 
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XMIN 


YMIN  = A + A,  XMIN  + 
o 1 

A2  XMIN2 


MINMUM-6 
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MINMUM-7 


Solve  Case  4 Coefficient 
Equations  - "Four  Point" 
Curve  Fit 


A2  > o. 


XMIN  = - A L 

2Ao 


YMIN  = A + A XMIN  I 
o 1 0 

+ Ao  XMINZ 


XMIN  = 

1.E10  I 

YMIN  = 

-1.E10  1 

MINMUM-8 
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3.2.9  Subroutine : PGM 

Purpose : To  generate  a targeted  and  optimized  reference 

trajectory. 

Method : PGM  (Projected  Gradient  Method)  is  the  organ- 

izational routine  for  the  targeting  and  opti- 
mization submode.  The  logic  for  a complete 
iteration  may  be  found  in  this  routine.  Basi- 
cally, the  iterative  scheme  proceeds  as  follows 
o A reference  trajectory  is  generated 
using  the  namelist  input  variables  in 
$TRAJ. 

o The  target  error  index  is  calculated, 
o The  method  of  control  correction  is 
determined  and  convergence  is  tested, 
o Target  sensitivities  to  changes  in 
controls  are  computed  by  numerical 
differencing  or  STM  techniques, 
o A control  correction  is  computed  and 
scaled. 

o The  control  correction  is  applied  to 
the  current  control  vector, 
o The  trajectory  associated  with  the 
new  control  vector  becomes  the  refer- 
ence trajectory  for  the  next  iteration. 
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Remarks : 


Input /Output : 
Variable 


This  process  continues  until  convergence  has 
been  achieved  or  the  maximum  number  of  iter a 
tions  has  been  reached. 

A check  is  made  on  the  remaining  central 
processor,  (CP),  time  after  every  iteration. 
If  the  estimated  processor  time  for  the  next 
iteration  is  larger  than  the  remaining  CP 
time,  the  iteration  process  is  terminated. 

Input/  Argument/ 

Output Common Definition 


E I C 

EMAG  I C 

EPS0N  I C 

ETR  (1,1)  0 C 

F I C 

FTR(l)  0 C 

GAMA  I C 

NTR  I C 

NU  I C 


Target  errors  evaluated 
for  the  current  trajectory. 

Target  error  index. 

Scalar  multiple  for  con- 
trol perturbations. 

1=1,  NT;  Target  errors 
of  the  reference  trajectory 
for  the  current  iteration0 

Performance  index  of  the 
current  trajectory. 

Performance  index  of  the 
reference  trajectory  for 
the  current  iteration. 

Scale  factor  providing  the 
best  control  change. 

Trial  Trajectory  counter. 
Number  of  controls. 
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Input/  Argument/ 


Variable Output Common 

H I/O  C 

INJL0C  I C 

INSG  I/O  C 

HERAT  0 C 

KMAX  I C 

K0NVRJ  I C 

L0CDU  I C 

L0CDU1  I C 

L0CDU2  I C 

L0CRFM  • I C 


Definition • 

Control  perturbation  array. 

Index  on  the  control  pre- 
ceding the  injection  con- 
trols in,  the  vector  U. 

Flag  set  when  S and  G are 
not  calculated  for  current 
iteration. 

Iteration  counter. 

Number  of  thrust  controls 
(THRUST (I, J))  chosen  to  be 
mode  controls  (U) • 

Convergence  flag. 

Blank  common  location  of 
the  total  control  correc- 
tion-vector (not  scaled 
by  GAMA). 

Blank  common  location  of 
the  performance  control 
correction  vector  (not 
scaled  by  GAMA). 

Blank  common  location  of 
the  constraint  control 
correction  vector  (not 
scaled  by  GAMA). 

Blank  common  location  of 
the  S/C  masses  evaluated 
at  event  times  for  the 
reference  and  all  trial 
trajectories  in  a single 
iteration. 

Blank  common  location  of 
the  pseudo  inverse  of  the 
weighted  sensitivity 
matrix. 


L0CSI* 


I 


C 
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PGM- 4 


Input/  Argument/ 


Variable 

Output 

Common 

L0CTS 

I 

C 

L0CUL 

I 

C 

L0CWG* 

I 

c 

L0CWS* 

I 

c 

L0CWU 

I 

c 

L0CXR 

I 

c 

MIN 

I 

C 

NLP 

I 

C 

NT 

I 

c 

NTNP 

I 

c 

Definition 


Blank  common  location  of 
event  times  for  the  refer- 
ence and  all  trial  trajec- 
tories in  a single  iteration. 

Blank  common  location  of 
minimum  and  maximum  control 
bounds  (ULIMIT). 

Blank  common  location  of 
the  weighted  performance 
gradient . 

Blank  common  location  of 
the  weighted  sensitivity 
matrix. 

Blank  common  location  of 
the  control  weights. 

Blank  common  location  of 
the  6-component  state 
vectors  associated  with 
the  event  times  of  the 
reference  and  all  the 
trail  trajectories  evalu- 
ated during  a single 
iteration. 

Index  of  the  scale  factor 
in  the  GAMMA  vector  which 
provides  the  best  control 
correction. 

Integer  designation  of  the 
launch  planet. 

Number  of  targets. 

Vector  of  primary  bodies 
associated  with  the  event 
times  of  the  reference  and 
all  trial  trajectories  in 
a single  iteration. 


*Arrays  may  be  in  compressed  form  if  controls  have  been 
dropped  during  the  iteration. 
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PGM- 5 


Input/  Argument/ 

Variable  Output Common 


Definition 


PMASS 

I 

C 

Vector  of  planetary  gravi- 
tational constants. 

PRTURB 

I 

c 

Vector  of  control  pertur- 
ba  tions . 

STATEO 

I /0 

c 

S/C  state  at  trajectory 
start  time  for  the  reference 
trajectory  of  a given  iter- 
ation. 

STATR 

1/0 

c 

Array  of  initial  S/C  states 
for  the  reference  and  all 
trial  trajectories  of  a 
given  iteration. 

TARN0M 

1/0 

c 

Target  values  evaluated 

for  the  reference  trajectory. 

TARTR 

I 

c 

Target  values  evaluated  for 
the  reference  trajectory 
and  all  trial  trajectories 
in  a given  iteration. 

U 

1/0 

c 

Selection  of  controls  for 
the  specified  mode  run. 

WE 

I 

c 

Vector  of  target  weights. 

XMM 

0 

c 

Mean  motion  of  S/C  in  park- 
ing orbit. 

IASTM 

I 

c 

Flag  specifying  method  of 
computing  the  targeting 
sensitivity  matrix. 

IM0DE 

0 

c 

TOPSEP  submode  flag. 

FUG 

I 

c 

Logical  flag  specifying 
tug  computations  (TRUE). 
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Local  Variables: 
Variable 

PGM- 6 

Definition 

K0UNT 

Index  counter  for  the  control  vector  U. 

TCPITR 

CP  time  for  the  first  iteration  (exclud- 
ing reference  trajectory  generation). 

TCPNQfW 

Current  CP  time  relative  to  the  start 
of  the  job. 

TCP REF 

CP  time  from  job  start  to  the  end  of 
the  reference  trajectory  generation. 

Subroutines  Called: 

C0PY,  FEGS,  MMATBA , PRINTO,  SECOND,  SIZE,  STEP,  TEST, 
TIMELIM,  ZER0M,  STMTAR,  INJECT 

Calling  Subroutines: 

T0PSEP 

Common  Blocks : 


(BLANK),  C0NST,  EDIT,  EPHEM,  T0P1,  T0P2,  TRAJ1 , 
TRAJ2 , W0RK,  IASTM,  TUG 


38 


Loeic  Flow: 


* 

STMTAR 

FEGS 

Generate  the 
nominal  tra- 
jectory and 
compute  S 

Generate  the 
nomina 1 
trajectory 

Compute  EMAG 


Store  the  appropriate 
information  from  the 
nominal  trajectory  in 
TARTR,  ETR,  FTR 


Determine  the  type  of 
control  correction  for 
the  next  iteration  and 
test  for  convergence 


KONVRJ  « 0 
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PGM -8 


Size  the  control  correction 
by  generating  a series  of 
trial  trajectories 


Scale  the  Control 
Correction  and  Add 
To  The  Original 
Control  Vector 


Choose  the  Best  Trial 
Trajectory  To  Be  The 
Reference  Trajectory  for  The 
• Next  Iteration.  Reset: 
TARN0M,  E,  EMAG  and  F 


Reset  Blank  Common  Storage 
For  the  Next  Iteration: 
ST0RE  (L0CTS) 

ST0RE  (L0CRFM) 

NTNP 


1NJL0C  *=  0 
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PRINTO-1 


3.2.10  Subroutine : PRINTO  (KFLAG) 

Entry  Points:  PRINT1,  PRINT2 , PRINT3 

Purpose : To  provide'  print  summaries  for  the  various 

TOPSEP  submodes. 

Remarks : An  iteration  summary,  a perturbed  trajectory 

summary,  a grid  summary,  or  a termination  summary 
is  printed  depending  upon  the  entry  point  called. 


Input/  Argument/ 

Variable Output Common Defini  tion 


CNVRTT 

I 

C 

Target  parameter  conver- 
sion constants . 

CNVRTU 

I 

C 

Control  parameter  conver- 
sion constants. 

DPS  I 

I 

c 

Target  error  to  be  removed 
during  current  iteration. 

DP2 

I 

c 

Region  of  linearity  in 
control  space. 

E 

I 

c 

Target  errors. 

EMAG 

I 

c 

Target  error  index. 

ET0L 

I 

c 

Target  tolerances. 

t 

ETR 

I 

c 

Array  of  target  errors  for 
iteration  trial  steps. 

F 

I 

c 

Performance  index. 

FTR 

I 

c 

Vector  of  performance 
indices  for  iteration 
trial  steps. 

G 

I 

c 

Performance  gradient. 

GAMA 

I 

c 

Optimum  control  change 
scale  factor. 

143 


PRINTO-2 


Variable 


Input/ 

Output 


Argument/ 

Common 


Definition 


ITERAT 

KFLAG 


Iteration  number. 


K0NVRJ  I C 

K0UNT  I C ■. 

LABEIT  I C 

L0CDU  I C 

L0CDU1  I C 

L0CDU2  I C 

L0CEM1  I C 

L0CEM2  I C 

L0CEN  I C 

L0CE2  I C 

10CF1  I C 


Print  specification  flag. 

Convergence  flag. 

Index  on  control  under 
consideration. 

Hollerith  target  labels. 

Blank  common  location  of 
total  control  correction 
vector . 

Blank  common  location  of 
performance  control  correc- 
tion vector. 

Blank  common  location  of 
the  targeting  control 
correction  vector. 

Blank  common  location  of 
the  target  error  indices 
associated  with  the  first 
step  of  the  control  grid. 

Blank  common  location  of 
the  target  error  indices 
associated  with  the  second 
step  of  the  control  grid. 

Blank  common  location  of 
the  target  errors  associated 
with  the  first  step  of  the 
control  grid. 

Blank  common  location  of 
the  target  errors  asso- 
ciated with  the  second 
step  of  the  control  grid. 

Blank  common  location  of 
the  performance  indices 
associated  with  the  first 
step  of  the  control  grid. 
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PR INTO -3 


Variable 

Input/ 

Output 

Argument/ 

Common 

De  f inition 

L0CF2 

I 

C 

Blank  common  location  of  the 
performance  indices  asso- 
ciated with  the  second  step 
of  the  control  grid. 

NT 

I 

C 

Number  of  targets. 

NU 

I 

C 

Number  of  controls. 

PG2 

I 

C 

The  square  of  the  projected 
gradient  magnitude. 

PRTURB 

I 

c 

Control  perturbation. 

S 

I 

c 

The  sensitivity  matrix. 

TARGET 

I 

c 

Desired  target  values. 

TARPAR 

I 

c 

Target  values  of  perturbed 
trajectories . 

TARTR 

I 

c 

Target  values  of  the  trial 
trajectories . 

U 

I 

c 

Control  vector. 

LABEL 

I 

c 

Hollerith  labels  for  all 
possible  targets. 

XINC 

I 

c 

Ecliptic  inclination. 

0MEGA 

I 

c 

Longitude  of  ascending  mode. 

S0MEGA 

I 

c 

Argument  of  periapsis. 

XMEAN 

I 

c 

Mean  anomaly. 

TA 

I 

c 

True  anomaly. 

Local  Variables: 

Variable Definition 

CDU  ( = W0RK(12l))  The  scaled  control  change  (converted 

to  output  units) . 

DU101JT  ( = W0RK.(1))  Converted  performance  control  change, 

DU20UT  ( = W0RK(21))  Converted  constraint  control  change. 


145 


PRINTO-4 


Variable 

Definition 

EN0M  ( = W^RK (7 3) ) 

Converted  target  errors  of  the  nomi- 
nal trajectory. 

ETLQfUT  ( = W0RK(85» 

Converted  target  tolerances. 

E10UT  ( = WORK (61)) 

Converted  target  errors  of  the  first 
step  grid  trajectories. 

E20UT  ( = WORK(67) ) 

Converted  target  errors  of  the 
second  step  grid  trajectories. 

TAROUT  ( = WORK( 79) ) 

Converted  target  values. 

UOLD  ( = WORK(lOl)) 

Converted  control  vector  of  previous 
iteration. 

UOUT  ( = W0RK(41) ) 

Converted  control  vector. 

W0RK 

Working  storage . 

ISTOPN 

Hollerith  labels  of  requested  stop- 
ping conditions . 

KOFF 

Hollerith  labels  of  actual  stopping 
conditions . 

Subroutines  Called:  SCALE,  STEP 

Calling  Subroutines:  FEGS,  GRID,  PGM,  TREK,  STMTAR 

(BLANK) , GRID,  PRINTH,  T0P1,  T0P2,  W0RK,  TARGET 


Common  Blocks : 


6 


LoEic  Flow 


PRINTO 


PRT NTO-5 


Print  Itera tion  Summary 
variables:  ITERAT,  GAMA , PG2 , 

F,  EMAG,  E.  DPSI,  G,  DUl, 
DU2,  DU,  CDU , U0LD , U,  and  S 


RETURN 


PRINTl 


Print  Perturbed  Trajectory 
Summary  Variables:  K0UNT, 

U (K0UNT) , PRTURB,  G,  S, 
TARPAR, LA, BELT 


RETURN 


PRINT2 


Print  Grid  Summary  Variables: 
TARGET,  ET0L,  LABELT,  EN0M, 
U0UT,  DU10UT,  DU20UT,  ElOUT, 
E20UT,  ETR(l) , FTR(l) 


RETURN 


147 


PRINTD-1 


3.2.11  Subroutine:  PRIM'D 


Purpose : 
Remarks : 


To  print  submode  input  summaries* 

PRINTD  is  in  the  DATAT  overlay  and  does  not 
remain  in  core  during  TOPSEP's  submode  opera- 


tion. 

Input/Output: 

Input/ 

Variable Output 

CNTR0L  I 


CNVRTU  I 


dfmax  I 

DP  2 I 

EPS0N  I 

G0UT  I 


GTRIAL  I 

H0UT  I 

IM0DE  I 

INACTV  I 


INSG  I 


Argument/ 

C ommo  n De  fini  ti  on 


C 

C 


c 

c 


c 

c 

c 


Initial  values  of  all 
possible  controls. 

Conversion  constants  from 
input  units  to  internal 
units  for  selected  controls. 

Maximum  increase  allowed  in 
the  cost  index  (F). 

Estimated  region  of  lin- 
earity in  the  control 
space . 

Scalar  multiple  for  con- 
trol perturbations. 

Performance  gradient  in 
print-out  units. 

One-dimensional  search 
constants . 


C Control  perturbations  in 

printout  units. 

C TOPSEP  submode  designation. 

C Vector  denoting  which  con- 

trols are  active,  on 
bounds,  or  within  bound 
tolerance  regions. 

C Flag  set  to  1 when  S and  G 

are  input  through  namelist 
(nominally  0). 
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PRINTD-2 


Input/  Argument/ 

Variable Output  Common  Definition 


V a l 1.0  u ic 

IWATE 

I 

C 

Flag  designating  the 
desired  control  weighting 
scheme . 

JMAX 

I 

c 

Number  of  mission  thrust 
phases . 

KMAX 

I 

c 

Number  of  thrust  controls 
(THRUST  (I,  J))  chosen  to 
be  elements  in  U. 

KNTR0L 

I 

c 

Hollerith  names  for  the 
elements  in  CONTR0L* 

L0CUL 

I 

I 

c 

Blank  common  location  of- 
minimum  and  maximum  control 
bounds. 

NMAX 

■ ' c 

Maximum  number  of  iterations. 

NT 

I 

c 

'-Numb  e r of  tar  get  s , 

NU 

I 

c 

Number  of  controls. 

PCT 

I 

c 

Percentage  of  target  error 
to  be  removed  during  an 
iteration. 

S0UT 

I 

c 

Target  sensitivity  matrix 

in  printout  units. 

ST0L 

I 

c 

Test  variable  for  determin- 
ing linearly  dependent 
columns  of  the  weighted 
sensitivity  matrix* 

• TL0W 

I 

c 

Limit  of  target  error  index 
below  which  optimization 
only  is  performed. 

TUP 

I 

c 

Limit  of  target  error  index 
above  which  simultaneous 
targeting  and  optimization 

% 

is  discontinued  and  target- 
ing only  is  initiated. 
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PRINTD-3 


XJcx  y i 1 p 

Input/ 

Output 

Argument/ 

Common 

Definition 

veil.  4-0  u 4.^ 

UWATE 

I/O 

C 

User  input  control  weights 

W0RK 

I 

C 

Working  storage. 

Local  Variables : 
Va  r*i  ab  le 

■. 

Definition 

K0UNT 

Control 

counter • 

ut  ( = W0RK(1))  The  minimum  and  maximum  values  of  the 

control  bounds  in  printout  units. 


Subroutines  Called:  None 


Calling  Subroutines:  DATAT 


Common  Blocks: 


(BLANK),  C0NST,  EDIT,  EPHEM,  GRID,  PRINT,  PRINTH, 
TIME,  T0P1,  T0P2,  TRAJ1,  TRAJ2 , W0RK 


FRINTD-4 


Logic  Flow: 
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SIZE-1 


3,2.12 
Purpose 
Method : 


Subroutine : SIZE 

To  size  the  control  correction. 

The  basic  procedure  for  sizing  the  control  cor- 
rection is  as  follows: 

1.  Compute  the  target  error  to  be  removed  during 
the  current  iteration.  Often  it  is  not  wise 
to  remove  all  the  target  error  in  one  step 
due  to  the  nonlinear  relationship  of  the 
targets  to  the  controls. 

2.  Compute  the  control  correction  ^ U based  upon 
the  method  of  projected  gradients. 

3.  Perform  a one-dimensional  search  in  the  ^ U 
direction  to  determine  a scaled  control  cor- 
rection which  will  minimize  either  the  target 
error,  the  cost  index,  or  both. 

Supplementary  computations  include: 
o Determining  linear  dependency  among  columns 
of  the  sensitivity  matrix,  S,  thus  averting 
numerical  problems  when  computing  the  pseudo- 
inverse of  S. 

o Determining  which  controls  lie  on  their  respec- 
tive bounds  and  which  control  corrections 
violate  the  control  constraints, 
o Determining  the  maximum  allowable  scale  factor 


for  the  current  iteration 


152 


SIZE-2 


L ' 


Remarks: 


Steps  1 and  2 of  the  control  sizing  procedure  are 
completed  in  the  secondary  overlay  DELTU  which  is 
called  from  SIZE.  In  addition,  DELTU  performs 
most  of  the  supplementary  calculations.  The  third 
step  is  completed  within  subroutine  GENMIN.  Sub- 
routine SIZE  monitors  the  overall  procedure.  Elabo- 
ration of  the  third  step  in  terms  of  the  coded  logic 
follows , 


Subroutine  size  calls  subroutine  GENMIN  to  compute 
the  value  of  the  scaling  factor  y (GAMA)  which 
minimizes  a function  P(7)  in  the  combined  constraint 
direction,  Ai^  , and  the  optimization  direction,  Au  , , 
or  each  direction  individually  depending  upon  the 
value  of  NTYPE . The  function  P(7)  is  the  sum  of  two 
functions,  Pl(7)  and  P2(7)  . Pl(7>  is  the  net  cost 
index  and  P2(7)  is  the  target  error  index. 


P(7)  - a-X-PlOy)  + 0 « P2(7) 


where 


a 


0 - 


1,  for  optimization  only  or  simultaneous 
targeting  and  optimization, 

0,  for  targeting  only 

1,  for  targeting  only  or  simultaneous 
targeting  and  optimization, 

0,  for  optimization  only 


X 


Weighting  of  the  net  coat  index  (0SCALE) 


GENMIN  evaluates  P(7)  for  different  values  of  Y 


so  that  a polynomial  approximation  of  the  function 
can  he  made.  Once  the  polynomial  \h  formulated 
the  minimizing  7 may  be  computed  analytically. 

To  reduce  the  number  of  point  evaluations  of 
P(7),  SIZE  provides  GENMIN  with  the  first  deriva- 
tive of  the  function  at  V = 0.  The  first  deriva- 
tive (DP12DS)  is  of  the  form 


p'(0)  = d P(y) 

d 7 


= «‘A‘Pl/(0)  + /?-P  2/(0) 


7=0 


For  the  special  case  when  only  the  target  error  is 
to  be  minimized,  the  first  derivative  (DP2DS)  is 

P/(0)  = P2y(0) 


Likewise,  for  the  case  when  only  the  net  cost  is 
to  be  minimized,  the  first  derivative  (DP IDS)  is 

p'(0)  = A ■ P 1 (0) 

The  function  P2(y)  to  be  minimized  along  the  con- 
straint direction,  Au£,  sum  °f  the  squares 

of  the  target  errors  (E)  divided  by  the  target 
tolerances  (ET0L) . 
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SIZE -4 


where 


W = 


ET0L<1) 


ET0L(2) 


1 


ET0L(NT) 


The  first  derivative  evaluated  at  y = 0 is 
simply 


P2/(0)  = 2ET  (u)  S Au2 
where  S is  the  target  sensitivity  matrix 


6 E 

(Ta)- 


The  function  Pl(  y ) to  be  minimized  along  the 
optimization  direction  Au^  is  defined 
A 

• — 1 

P 1 ( y ) * F (u  + y A ut)  - F (u)  + 


T 

G (u) 

T -1 

-S  (SS  ) E (u  +y 

1 

1 

±J 

B 


where  A represents  the  change  in  performance  pro- 
duced by  a step  of  length  y along  Au^  and  B 
represents  the  linearized  approximation  to  change 
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The  functions  p/(0),  P1*(0),  and  P2<(0)  are 
initialized  in  the  secondary  overlay  DELTU . The 
point  evaluations  of  the  functions  P(  y),  Pl(  y ), 
and  P2(  V ) are  computed  in  GENMIN  and  stored  in 
the  vectors  P1P2,  PI,  and  P2  respectively.  The 
various  values  of  the  scale  factor,  V , are 
stored  in  the  vector  GAMMA  while  the  minimizing 
scale  factor  is  stored  in  the  variable  GAMA. 


/ 


i v> 


Input/Output : 


iable 

Input/ 

Output 

Argument/ 

Common 

BIG 

I 

C 

DP1DS 

I 

C 

DP12DS 

I 

c 

DP2DS 

I 

c 

DP2 

I/O 

c 

GAMA 

0 

c 

GAMMA 

0 

c 

GMAX 

0 

c 

GTRIAL 

I/O 

c 

INACTV 

I/O 

c 

IN  SG 

I/O 

c 

I TER AT 

I 

c 

KGMAX 

I 

c 

L0CUL 

I 

c 

MIN 

0 

c 

NTYPE 

0 

c 

Definition 


Large  constant,  1.E20 

Pl(O) 

p'(o) 

P21  (0) 

Scale  on  optimization  cor- 
rec  t ion . 

Scale  factor  providing  the 
best  control  change. 

Vector  of  control  change  scale 
factors  for  the  trial  trajec- 
tories. 

Largest  allowed  scale  factor. 

One-dimensional  search 
constants. 

Vector  denoting  which  con- 
trols are  active  (1),  on  bounds 
(0) , or  within  bound  tolerances 

Flag  set  when  S and  G are 
input  through  namelist. 

Iteration  counter. 

Index  on  control  which  will 
reach  a bound  if  GMAX  scales  4V1 

Blank  common  location  for  the 
control  bounds , 

Index  of  minimizing  scale 
factor  in  GAMMA. 

Flag  specifying  the  type  of 
control  correction . 
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Variable 

Input/ 

Output 

Argument/ 

Common 

De  f ini t ion 

NU 

I 

C 

Number  of  controls. 

PI 

0 

C 

Vector  of  net  cost  values 
corresponding  to  the  scale 
factors  in  GAMMA. 

P1P2 

0 

C 

Vector  of  combined  net  cost 
and  target  error  index  value 
corresponding  to  the  scale 
factors  in  GAMMA. 

P2 

0 

C 

Vector  of  target  error  index 
values  cor  respond ing  to  the 
scale  factors  in  GAMMA. 

. U 

I 

C 

Control  vector. 

UL1M1T 

I 

C 

Control  bounds. 

Local  Variables: 

Variable 

Definition 

PIE  ST 

Vector  containing  the 
Pl(  T ) for  the  trial 

estimates  of 
trajectories . 

P12EST 

Vector  containing  the 
P ( T ) for  the  trial 

estimates  of 
trajectories . 

P2EST 

Vector  containing  the 
P2(  Y'  ) for  the  trial 

estimates  of 
trajectories . 

UNEW 

Updated  control  vector  used  to  compute 
INACTV . 

Subroutines  Called: 

C0PY,  DELTU,  GENMIN,  STEP 

Calling  Subroutines 


PGM 


Common  Blocks: 


(BLANK) r C^N ST,  EDIT,  T0P1 , T0P2 , W0RK,  SIZE* 
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Pages  159  through  165  have  been  deleted. 


o 

0 


& 
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STEP-1 


3.2.13  Subroutine : 
Purpose : 

Method : 


STEP  (U0LD,  SCALE,  DELU,  NU,  UNEW) 

To  update  the  control  vector. 

The  new  control  vector  is  updated  by  the  follow- 
ing algorithm: 


UNEW  (I)  = U0LD  (I)  + SCALE  * DELU  (1) 


Input/Output : 
Variable 


Input/  Argument/ 

Output Common 


DELU  I A 

NU  I A 

SCALE  1 A 

UNEW  0 A 

U0LD  I A 


Local  Variables:  None 

Subroutines  Called:  None 

Calling  Subroutines:  GRID,  PGM. 

Common  Blocks:  None 

Logic  Flow: 


Definition 

Control  correction  vector. 
Number  of  controls. 

Scale  on  control  correction. 
Updated  control  vector. 
Previous  control  vector. 


None 
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3.2.14A 


Purpose 


Method : 


Subroutine:  STEST  (WS,  NT,  NU,  ST0L,  CD0TC , CMAG,  LDEP, 

NDEP) 

To  compute  the  inner  products  between  columns 
of  the  weighted  sensitivity  matrix  in  order  to 
determine  linearly  dependent  control  sensitiv- 
ities . 

The  normalized  inner  products  between  columns 
of  the  weighted  sensitivity  matrix  are  computed 
and  stored  in  the  CD0TC  array.  These  values  are 
then  tested  to  determine  whether  they  fall  within 
some  tolerance  (ST0L)  of  unity.  The  control 
sensitivity  vectors,  whose  inner  products  do 
fall  within  this  tolerance  region,  are  considered 
to  be  linearly  dependent  and  at  least  one  of  the 
associated  controls  will  be  dropped  from  the 
control  vector  during  the  concurrent  iteration. 
For  example,  if  S.  and  S.  represent  two  columns 
of  the  weighted  sensitivity  matrix  and 


1 - 


S.  ' S. 

ls*l  *Uj 


< ST0L 


then  S_.  and  S.  are  considered  linearly  dependent. 
^ J 

Whether  the  ^ and  component  is  dropped  from 

the  control  vector  depends  upon  the  other  column 

vector  inner  products*  If  and  S are  al$g 

'J  ^ 
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• linearly  dependent  then  control  will  be  dropped 

since  this  measure  will  allow  more  controls  to 
remain  active.  The  fact  that  a tolerance  region 
is.  used  to  test  linear  dependency  does  permit 
and  t0  remain  linearly  independent  although  both 
vectors  are  linearly  dependent  with  S ^ . If  ^ and 
are  the  only  linearly  dependent  vectors  the  control 
with  the  lower  index  is  arbitrarily  dropped. 

Remarks : STEST  is  called  only  once  per  iteration  and  only 

when  considering  controls  in  the  weighted  space. 

Input/Output ; 

Input/  Argument/ 


Variable 

Output 

Common 

Definition 

CD0TC 

0 

A 

Array  of  normalized  inner 
products;  CD0TC  (I,  J)  is 
the  inner  product  between 
the  I and  J columns  of  WS. 

CMAG 

0 

A 

Magnitude  of  the  sensitivity 
column  vectors. 

LDEP 

0 

A 

Vector  of  flags  nominally 
zero  but  set  to  1 to  denote 
which  controls  should  be 
dropped. 

NDEP 

0 

A 

Number,  of  dropped  controls. 

NT 

I 

A 

Number  of  targets. 

NU 

I 

A 

Number  of  controls. 

ST0L 

I 

A 

Minimum  difference  allowed 
between  normalized  inner 
products  of  the  control 
sensitivity  vectors  and 
unity  before  the  vectors 
are  considered  linearly 
dependent . 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

WS 

I 

A 

Weighted  sensitivity  matrix 

Local  Variables: 


Variable 


Definition 


MATRIX 


MRC 


MRCSUM 


Integer  array  the  same  dimensions  as 
CDOTC  whose  components  are  nominally 
zero  but  set  to  1 when  (1-CD0TC 
ST0L) 

NU  X 2 array;  the  first  column  repre- 
sents the  sum  of  the  elements  across 
the  rows  of  MATRIX;  the  second  column 
represents  the  sum  of  elements  down 
the  columns  of  MATRIX, 

NU  X 1 vector  whose  elements  represent 
the  sum  across  the  rows  of  MRC, 


ITEST 


Index  of  the  largest  element  of  MRCSUM. 


Subroutines  Called;  ZER0M 
Calling  Subroutines:  SIZE 


C ommon  Blocks : 


None 


0 


Logic  Flow 


STEST-4 


Compute  the  Normalized 
Inner  Product  CD0TC  (I,J) 
Between  the 
Columns  I and  J of  WS 


1-CDOTC (I,  J)  <ST0L 


MATRIX  (I,J)  = 


Sum  the  Elements  Across  The 
Ith  Row  of  MATRIX  and 
Store  in  MRC  (1,1) 


Sum  the  Elements  Down  The 
Ith  Column  of  MATRIX  and 
Store  in  MRC  (1,2) 


Sum  the  Elements  Across  The 
Ith  Row  of  MRC  and 
Store  in  MRCSUM  (I) 


STEST-5 


Set  NDEP  Equal  To  The 
Number  of  Elements  of 
LDEP  which  are  1 


/ \ 


RETURN 
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3.2.14B  Subroutine:  STMTAR  (IT) 

Purpose : To  compute  the  targeting  sensitivity  matrix  from 

the  augmented  state  transition  matrix. 


Method : 


Remarks: 


The  method  of  computing  the  sensitivity  matrix,  S, 
from  the  partitions  of  the  augmented  STMs,  0 and 
9,  is  described  in  Reference  1,  Section  9,7, 
page  140. 

During  each  iteration  the  reference  trajectory  (i.e. 
the  trajectory  defined  by  the  $TRAJ  variables  in 
the  zeroth  iterate  and  the  "best"  trial  trajectory 
in  each  subsequent  iteration)  must  be  integrated 
to  compute  0,  9,  and  S.  If  a portion  of  this  refer- 
ence trajectory  remains  constant  throughout  the 
iterative  process,  it  is  integrated  during  the 
zeroth  iterate  only. 


Input/Output: 

Input/  Argument/ 
Variab  le Output Common 

CA  0 C 

E 0 C 

E TA  ( =STATR  ( 1 , 2))  0 C 

F 0 C 

IJH  I C 

IPRINT  0 C 


Definition 

Closest  approach  computed  in  BPLANE 

Target  error  vector 

Sensitivity  of  targets  to  changes 
in  final  state 

Cost  index  (negative  of  payload) 

Array  of  flags  indicating  active 
controls 

Trajectory  print  flag 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

IT 

I 

A 

Flag  indicating  integration  of 
the  fixed  tra  jr*c tory  arc  (-.1)  or 
Integration  n 1 JJTMm  (1) 

KMAX 

1 

C 

Number  of  active  thrust  controls 

LISTAR 

I 

C 

Array  of  flags  indicating  select 
ed  targets 

L0CM 

I 

C 

Blank  common  location  of  final 
S/C  mass 

LOCRFM 

I 

c 

Blank  common  location  of  the  S/C 
masses  evaluated  at  event  times 

LOCTS 

I 

c 

Blank  common  location  of  event 
times 

LOCXR 

I 

c 

Blank  common  location  of  the  S/C 
states  evaluated  at  event  times 

MPRINT 

I 

c 

TOPSEP  print  flags 

NPRI 

I 

c 

Primary  body  designation 

NT 

I 

c 

Number  of  targets 

NTNP 

0 

c 

Vector  of  primary  body  designa- 
tions associated  with  trajectory 
event  times 

NTP 

. I 

c 

The  target  body  code 

NTPH 

I 

c 

Vector  of  control  phase  numbers 
associated  with  event  times 

NTP HAS 

I 

c 

Thrust  phase  counter 

NU 

I 

c 

Number  of  controls 

PHI 

0 

ft 

c 

State  transition  matrix  (6x6) 

RCA 

0 

c 

Target  planet  encounter  radius 
computed  in  TRAJ 

S 

0 

c 

Targeting  sensitivity  matrix 

SCMASS 

I 

c 

S/C  mass  at  trajectory  start  time 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

STATEO 

I 

C 

S/C  state  at  trajectory  start 
time 

STATR 

I 

C 

Array  of  initial  states  corres- 
ponding to  the  reference  and 
each  trial  trajectory 

TARGET 

0 

C 

Desired  target  values 

TARN0M 

0 

C 

Target  values  evaluated  for  the 
reference  trajectory 

TCA 

0 

C 

Time  of  closest  approach  computed 
in  BPLANE 

TEND 

I 

C 

Trajectory  end  time 

THETA 

0 

C 

Sensitivity  of  final  state  to 
changes  in  thrust  controls 

TM 

I 

c 

Time  conversion  constant  (days 
to  seconds) 

TRGA 

0 

c 

Time  at  closest  approach  computed 
in  TRAJ 

TSI 

0 

c 

Time  at  SOI  computed  in  BPLANE 

TS0I 

0 

c 

Time  at  SOI  computed  in  TRAJ 

T START 

I 

c 

Trajectory  start  time 

TUG 

I/O 

c 

Logical  flag  indicating  injection 
computations  if  TRUE 

Local  Variables: 

Variable 

Definition 

NPRIO 

Primary  body  designation  at  time  TSTART  for  the  refer- 
ence trajectory 

REFMO 

S/C  initial  mass 
trajectory 

at  time  TSTART  for  the  reference 

REFXO 

S/C  initial  state 

at  time  TSTART  for  the  reference 

trajectory 
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Subroutines  Called; 


Calling  Subroutine: 


C0PY,  DTDUO , ECOMP,  MATGUT,  MMAB,  MUNPAK, 
SUB,  TC0MP,  THCOMP,  TREK,  TUGINJ,  VECMAG 

PGM 


PRINT 3, 


Common  Blocks: 


(Blank),  CONST,  IASTM,  TARGET,  TIME  TOPI,  TGPZ, 
TRAJ1,  TRAJ2 , TUG 
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3.2,15  Subroutine : 
Purpose : 


Method : 


Remarks : 


TEST 

To  test  for  convergence  and  to  determine  whether 
the  next  control  change  will  be  a targeting 
and/or  optimization  correction. 

The  determination  of  the  type  of  control  correc- 
tion is  based  upon  the  size  of  the  error  index 
(EMAG),  The  value  of  EMAG  is  compared  to  user 
input  limits  which  direct  the  calculation  of 
the  next  control  change  to  be  either  a constraint 
correction,  a performance  correction,  or  simulta- 
neous constraint  and  performance  corrections. 

The  iteration  process  is  considered  converged 
and  the  run  is  terminated  when  the  performance 
index  is  maximized. 

A summary  of  the  control  correction  decision 
process  is  given  in  the  following  table. 


IF 

THEN 

EMAG  > TUP 
TL^W < EMAG < TUP 
EMAG  < TL0W 

TARGETING 

TARGETING  AND  OPTIMIZATION 
OPTIMIZATION 

Search  Direction  Options 
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The  input  limits  TUP,  TL0W,  and  0P7END  allow  the 
user  flexibility  in  determining  the  type  of  target- 
ing and  optimization  strategy.  For  example,  the 
user  may  concentrate  on  targeting  exclusively  by 
setting  TUP  = TL0W  = 1,  and  0PTEND  = 0.  When  the 
trajectory  is  targeted  the  run  will  terminate 
without  optimizing. 

The  angle  (9)  between  G and  4^  is  used  to  test 
convergence  in  subroutine  TEST.  Optimization  is 
considered  complete  when 

cos  9 = G 

|G|  *!Aux| 

approaches  0 (when  9 approaches  90  deg.)  and  when 

L 

EMAG  <C  TL0W , The  user  may  override  this  conver- 
gence requirement  by  specifying  tfPTEND.  When 
0PTEND  < 9 < 90  and  EMAG  < TL0W  the  run  is  termi- 
nated. Figure  3-1  illustrates  the  convergence 


process . 
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Figure  3-1  Geometric  Interpretation  of  Convergence 


Input/Output : 
Variable 


CTHETA 


Input/ 

Output 

I ' 


EMAG  I 

HERAT  I 

K0NVRJ  0 


Argument/ 

Common  Def  ini  t i on 


C Cosine  of  the  convergence 

test  angle,©.  As  opti- 
mization process  converges j 
© approaches  90  degrees  and 
CTHETA  approaches  0 « 

C Quadratic  error  index. 

C Current  iteration  number. 

C Convergence  flag, 

= -1,  maximum  iteration 
number  reached 


= 0,  iteration  in  process 

= 1,  convergence 

I C Maximum  number  of  itera- 

tions allowed. 
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Input/ 

Variable Output 


Argument/ 

Common 


Definition 


NTYPE  0 


tfpTEND  I 


TL0W  I 


TUP  I 


C Flag  designating  type  of 

next  control  correction* 

= -1,  optimization  only 

= 0,  targeting  and  opti- 

mization 

- 1,  targeting  only 

C User  specified  convergence 

tolerance  on  optimization 
process  (e.g.,  CTHETA  £ 

0PTEND  indicates  convergence). 

C Upper  limit  of  EMAG  for 

which  optimization  only  is 
performed, 

C Lower  limit  of  EMAG  for 

which  targeting  only  is 
performed. 


Local  Variables:  None 

Subroutines  Called:  None 

Calling  Subroutines;  PGM 
Common  Blocks:  EDIT,  T0P1,  T0P2 

Logic  Flow: 


None 
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3,2,16 

Purpose 

Method : 


Subroutine:  TREK  (IT,  KOUNT) 

To  organize  calls  to  the  trajectory  propagator 
and  to  evaluate  target  conditions. 

The  trajectory  propagator,  TRAJ,  performs  two 
basic  functions  for  TOPSEP:  1)  trajectory 

integration  from  some  specified  starting  time 
(TREF)  to  the  stopping  condition  denoted  by 
IST0P,  and  2)  trajectory  integration  from  the 
starting  time  to  an  event  time  (TEVNT).  In 
the  latter  case  TRAJ  may  be  recalled  and  tra- 
jectory integration  continued  from  the  current 
event  time  to  the  next  event  time  without 
requiring  initialization  of  the  trajectory 
routines  and  parameters . These  capabilities 
are  utilized  in  TOPSEP’ s submodes  in  different 
ways.  For  the  simple  trajectory  propagation 
submode,  TRAJ  is  required  to  integrate  from 
the  start  time  to  the  termination  time.  However, 
the  targeting  and  grid  submodes  require  that 
TRAJ  return  to  TREK  at  certain  phase  times  so 
- that  the  s/c  mass  and  state  may  be  stored  in 
blank  common.  This  requirement  is  necessary 
only  for  the  reference  and  trial  trajectory 
when  elements  of  THRUST (I,  J)  are  used  as  con- 


trols 


When  TREK  is  called  to  set  up  grid 
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trajectories  and  perturbed  trajectories  the 
appropriate  mass  and  state  are  selected  from 
blank  common*  TRAJ  then  integrates  the  trajec- 
tory from  the  beginning  of  the  associated  thrust 
phase  to  the  terminal  time  thus  avoiding  the 
duplication  of  known  trajectory  segments.  When 
elements  of  THRUST (I,  J)  are  not  used  as  con- 
trols, however,  TRAJ  integrates  from  the  start 
time  (TSTART)  to  the  terminal  time.  TRAJ 
returns  the  s/c  terminal  state,  and  mass  and 
the  final  time  upon  completion  of  the  trajec- 
tory integration.  To  compute  additional  termi- 
nation data  or  to  compute  target  parameters  such 
as  RDT  and  BDR  or  orbital  elements,  subroutine 
BPLANE  must  be  called.  Subroutine  TC0MP1  is  then 
called  to  select  and  to  store  the  appropriate 
target  parameters  in  the  vector  TARPAR. 

The  flag  returned  from  TRAJ  which  directs  '.further 
computation  of  termination  data  is  KUT0FF.  The 
following  table  provides  a summary  of  the  KUT0FF 
options . 
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KUT0FF 

Actual  Stopping 
Condition 

IST0P 

Requested  Stopping 
Condition 

Computed  G0  T0 
Statement 
Number 

1 

Final  Time 

1 

Final  Time 

400 

2 

Final  Time 

2 

Encounter 

100 

3 

Final  Time 

3 

S0I 

100 

4 

Final  Time 

4 

Stopping  Radius 

100 

5 

Encounter 

.2 

Encounter 

200 

6 

Encounter 

3 

S01 

200 

7 

S0I 

3 

S0I 

300 

8 

Stopping  Radius 

4 

Stopping  Radius 

400 

9 

Event  Time 

NA 

Event  Time 

700 

Input /Output : 


■iable 

Input/ 

Output 

Argument/ 

Common 

Definition 

BIG 

I 

C 

Constant  equal  to  1.E20 

CA 

I 

C 

Closest  approach. 

ECC 

I 

c 

Eccentricity  of  orbit  rela- 
tive to  the  target  planet 
at  the  actual  stopping  cond 
tion. 

ICALL 

0 

C 

Trajectory  initialization 
flag. 

IM0DE 

I 

C 

TOPSEP  submode  designation. 

INTEG 

0 

c 

Flag  indicating  which  equa- 
tions are  to  be  integrated 
in  TRAJ. 

IPRINT 

0 

c 

Trajectory  print  flag. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

IT 

I 

A 

Flag  indicating  type  of  in- 
itialization preceding  the 
call  to  TRAJ. 

I TP 

0 

C 

Index  of  the  target  planet  in 
the  NB  array  (bodies  included 
in  the  trajectory  integration). 

KMAX 

I 

C 

Number  of  thrust  controls 
(THRUST  (I,  J))  chosen  to  be 
elements  of  u. 

K0UNT 

I 

A 

Index  on  control. 

KUT0FF  _ 

0 

C 

Termination  flag. 

L0CM 

O' 

C 

Blank  common  location  of  final 
S /C  mass . 

L0CRFM 

I 

c 

Blank  common  location  of  the 
S /C  masses  evaluated  at  event 
times  for  the  reference  and 
all  trial  trajectories  in  a 
single  iteration. 

L0CTS 

I 

c 

Blank  common  location  of  event 
times  for  the  reference  and  all 
trial  trajectories  in  a single 
iteration. 

L0CXR 

I 

c 

Blank  common  location  of  the 
6-common  state  vectors  asso- 
ciated with  the  event  times  of 
the  reference  and  all  the  trial 
trajectories  of  a single  itera- 
tion. 

ME VENT 

0 

c 

Flag  designating  trajectory 
propagation  to  event  times. 

MPRINT 

I 

c 

Submode  print  option  flags. 

NPRI 

0 

c 

Primary  body  designation. 

NTNP 

0 

c 

Vector  of  primary  bodies  asso- 
ciated with  the  event  times  of 
the  reference  and  all  trial 
trajectories  in  a single  itera- 
tion. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

NTP 

I 

C 

The  target  body  code 
(NB  (ITF)). 

NTPH 

I 

c 

Vector  of  control  phase  num- 
bers associated  with  the  event 
times  of  the  reference  and  all 
trial  trajectories  in  a single 
itera  tion . 

NTP HAS 

0 

c 

Thrust  phase  counter. 

NTR 

I 

c 

Trial  trajectory  counter. 

NU 

I. 

c 

Number  of  controls. 

RCA 

0 

c 

Target  planet  encounter  radius. 

SCMASS 

I/O 

c 

S/C  mass  at  the  trajectory 
start  time. 

SMA 

0 

c 

Semi-major  axis  of  the  approach 
orbit  relative  to  the  target 
planet. 

STATEO 

I/O 

c 

S/C  state  at  trajectory  start 
time  . 

ST0RE 

I/O 

c 

Blank  common  variables. 

TARPAR 

0 

c 

Target  values  of  the  most  receni 
ly  generated  trajectory. 

TCA 

0* 

c 

Osculating  time  of  closest 
approach. 

TEVNT 

0 

c 

Event  time  to  be  monitored  by 
TRAJ  . 

TM 

I 

c 

Number  of  seconds  in  a day. 

TRCA 

0 

c 

Time  of  closest  approach  deter- 
mined by  TRAJ  if  KUTtfFF  equals 
5 or  6,  otherwise  set  to  TCA. 

TREF 

0 

c 

Reference  time  used  by  TRAJ  to 
begin  trajectory  propagation. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

TS0I 

0 

C 

Time  at  sphere  of  influence 
determined  by  TRAJ  if  KUT0FF 
equals  7,  otherwise  set  to 

-tsi. 

T START 

I 

C 

The  reference  trajectory 
start  time. 

TST0P 

0 

C 

The  actual  trajectory  termina- 
tion time. 

UREL 

0 

C 

Array  containing  the  position 
components  of  the  S /C  relative 
to  the  bodies  flagged  in  the 
NB  array. 

UREIM 

0 

C 

Vector  containing  the  magni- 
tude of  the  position  com- 
ponents of  the  S/ C relative 
to  the  bodies  flagged  in  the 
NB  array. 

UTRUE 

0 

c 

S/C  position  components  rela- 
tive to  tne  primary  body. 

VCA 

0 

c 

Osculating  velocity  at  closest 
approach. 

V RE  121 

0 

c 

Vector  containing  the  magnitudes 

of  the  velocity  components  of 
the  S/C  relative  to  the  bodies 
flagged  in  the  NB  array. 


VTRUE 

0 

c 

S/C  velocity  components  rela- 
tive to  the  primary  body. 

BDR 

0 

c 

Osculating  B-plane  element 
orthogonal  to  the  ecliptic 
plane . 

BDR 

0 

c 

Osculating  Br-plane  element  in 
the  ecliptic  plane. 

IASTM 

I 

c 

Flag  designating  the  method  of 
computing  the  target  sensitivity 
matrix . 
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Input/  Argument/ 


Variable Output Common 

LI STAR'  I C 

NT  I C 

TSI  0 C 

TUG  0 C 

VHP  0 C 

VREL  I C 


Local  Variables 
Variable 


Definition 


Array  of  indices  identifying 
selected  target  variables. 

Number  of  target  variables. 

Time  of  sphere  of  influence 
crossing  based  upon  osculat- 
ing B-plane  conditions. 

Logical  flag  determining 
whether  injection  conditions 
should  be  calculated. 

Hyperbolic  excess  velocity. 

Array  containing  the  velocity 
components  of  the  S/C  rela- 
tive to  the  bodies  flagged  in 
the  NB  array. 


Definition 


JUMP  Index  on  the  thrust  controls  (THRUST 

(I,  J))  chosen  to  be  elements  of  u. 

MISS  Flag  set  to  1 if  osculating  elements 

are  calculated  outside  the  target 
planet's  sphere  of  influence. 

NPRIO  Primary  body  at  time  TSTART  for  the 

reference  trajectory. 


NTPHO 

REFMO 

REFXO 


Thrust  control  phase  number  at  time 
TSTART  for  the  reference  trajectory. 

S/C  initial  mass  at  time  TSTART  for 
the  reference  trajectory. 

S/C  initial  state  at  time  TSTART  for 
the  reference  trajectory. 


Subroutines  Called:  BPLANE , CtfPY , VECMAG,  TUGINJ,  PRINT3,  TC0MP1 

Calling  Subroutines:  FEGS  , STMTAR 


Common  Blocks : 


(BLANK),  C0NST,  EDIT,  EPHEM,  GRID,  PRINTH,  TARGET, 
TIME,  T0P1,  T0F2,  TRAJ1 , TRAJ2 , WORK,  IASTM,  TUG 


Page  182  has  been  deleted. 
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TREK-11 


K0UNT  > KMAX 


Set  Grid  Trajectory  Parameters 
TREF,  NPRI , NTPHAS,  STATEO,  and 
SCMASS  To  The  Values  Corresponding 
To  The  Beginning  Phase  Time  In 
Which  The  Control  U(KOUNT) 

Is  Implemented 


KMAX  y 0 And 
K0UNT  £ KMAX 


Yes 

TREF  = T START 

■n 

Set  Perturbed  Trajectory 
TREF,  NPRI,  NTPHAS,  STATEO, 
and  SCMASS  To  The  Values 
Corresponding  To  The  Beginning 
Phase  Time  In  Which  The  Control 
U(K0UNT)  Is  Implemented 
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WEIGHT- 1 


3,2,17  Subroutine : 
Entry  Points: 
Purpose : 


Me  thod: 


WEIGHT  (DU1,  DU2,  DU,  SINV,  WG,  WS,  WU,  NUD,  NTD) 
UNWATE 

To  perform  the  appropriate  control  and  target 
space  transformations  by  weighting  and  unweight- 
ing the  controls,  gradients,  sensitivities,  and 
targets . 

Several  different  weighting  algorithms  have  been 
devised  to  transform  the  control  and  target 
spaces  in  order  to  facilitate  targeting  and 
optimization.  The  weights  are  applied  to 
"condition"  the  effects  of  selected  controls 
when  targeting  and  optimizing.  The  weighting 
algorithms  are  as  follows: 


1.  User  input  weighting 


WU  (J)  = 


UWATE  (J) 


2.  Unitized  control  weighting 


WU  (J)  Ju(J)  * UWATE  (J)  I 


3.  Sensitivity  weighting 


r i sa,  j>  | 1 

WU  (J)  = MAX  | j UWATE  (J)  I , i = 1 , NT  J 
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Remarks : 


Input /Output : 

Variable 
DPS  I 


4.  Combined  sensitivity,  target  error,  and 
control  weighting 


WU  (J)  = 


S (I,  J)  * ETR  (I,  1) 
U (J)  * UWATE(J) 


1=1 


5.  Target  gradient  weighting 


NT 

G2  (J)  = 2 S (I,  J)  * ETR  (I,  1) 

1=1 


WU  (J)  = 1 G2  (J)  t 

/g2T  G2 


6.  Averaged  gradient  and  control  weighting 


_*i — j 

^ (10  * U(I)  * UWATE(J)  + G2(J)  1 
(UWATE(J)  * U(J)2  + ) 


This  routine  is  used  to  weight  controls  and 
targets  before  the  control  correction  is  cal- 
culated and  to  unweight  the  same  variables  and 
certain  additional  parameters  before  the  trial 
trajectories  are  made. 


Input/  Argument/ 

Output Common  Definition 

I C Target  error  to  be  removed 

during  current  iteration. 


DU 


I/O 


A 


Total  control  correction 
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f 

! 


Variable 

Inpu  t / 
Output 

Argument/ 

Common 

Definition 

DU1 

I/O 

A - 

Performance  correction. 

DU2 

I/O 

A 

Constraint  correction. 

ET0L 

I 

C 

Target  tolerances. 

ETR 

I 

C 

Array  of  trial  trajectory 
errors. 

G 

I 

c 

Performance  gradient. 

IWATE 

I 

c 

Flag  specifying  type  of 
weighting . 

1,  User  input  weighting 


2,  Unitized  control 
weighting 

3,  Sensitivity  weighting 

4,  Combined  sensitivity, 
target  error,  and 
control  weighting 

5,  Target  gradient  weight- 
ing 

6,  Averaged  gradient  and 
control  weighting 


IWATE 

I 

C 

Flag  specifying  target 
weighting. 

NT 

I 

c 

Number  of  targets. 

NTD 

I 

A 

Integer  variable  used  to 
dimension  arrays  in  the 
argument  list  (number  of 
targets)  „ 

NU 

I 

C 

Number  of  controls. 

NUD 

I 

A 

Integer  variable  used  to 

dimension  arrays  in  the 
argument  list. 
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Input/ 

Argument/ 

Variable 

Output 

Common 

Definition 

S 

I 

C 

The  sensitivity  of  targets 
to  changes  in  controls. 

SINV 

I/O 

A 

Pseudo  inverse  of  the 
sensitivity  matrix. 

u 

I/O 

C 

The  control  vector. 

UWATE 

I 

c 

User  input  weights  on 

♦ 

controls  (used  in  each 
weighting  algorithm). 

WG 

0 

A 

Weighted  performance 
gradient . 

W0RK 

I 

C 

Temporary  working  storage. 

WS 

0 

A 

Weighted  sensitivity  matrix 

WU 

I 

'A 

Control  weighting  vector. 

Local  Variables: 

Variable 

Definition 

G2 

Target 

gradient. 

G2MAG 

Magnitude 

of  the  target  gradient. 

ST0RE 

Temporary 

storage  location. 

Subroutines  Called:  AMAX1, 

MMATB 

Calling  Subroutines:  SIZE 

Common  Blocks: 

EDIT, 

T0P1 , T0P2, 

W0RK 

Logic  Flow: 
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Logic  Flow: 


WEIGHT 


WEIGHT- 5 


IWATE  = 5 or  6 


Calculate 

Target 

Gradient 

G2 


(D0  J - 1,  NU) 


IWATE 


Calculate 
WU(J)  by 
Sensitiv- 
ity 

Weighting 

Schemes 


Calculate 
WU(J)  by 
Combined 
Sensitiv- 
ity 

Error  and 

Control 

Scheme 


Ca lcula  te 
WU(J)  by 
Target 
Gradient 
Scheme 


Calculate 
WU(J)  by 
Averaged 
Gradient 
and 

Control 

Scheme 


U(J) 

'w 

* 

' — * 
CD 

II 

WG  (J) 

= G(J)/WU(J) 

WS  (I,J) 

= S(I, J)/WU(J),  I = 1,  NT 

JWATE 


0 


1 
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Weight  Targets:  (1=1, NT;  J=l,  NU) 
WS(I,J)  = WS(I,J)/ET0L(I) 

DPSI(I)  = DPSI (I) /ET$L(I) 


RETURN 


UNWATE 


D0  J = 1,  NU 


DU1(J)  = DU1(J)/WU(J) 

DU2 (J)  = DU2(J)/WU(J) 

DU  (J)  = DU(J)/WU(J) 

U(J)  = U(J)/WU(J) 

SINV (J, I)  * SINV (J, I) /WU (J) , 1=1 , NT 


SIW(J,I)  = SINV  (J,  I)  /ETspL  (I)  , 
1=1, NT 

WS  (I, J)=WS(I, J)*ET0L(I), 

1=1. NT 


DPSI (I)=DPS I (I )*ET0L (I) , 
1=1, NT 


RETURN 
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3.3  Program: 

Purpose : 

Input /Output : 

Local  Variables : 
Subroutines  Called: 

Calling  Subroutines: 
Common  Blocks: 


G0DSEP-1 

G0DSEP 

Executive  control  for  error  analysis. 

Inputs  are  all  trajectory  data  provided  by 
DATAM.  Outputs  are  all  error  analysis  data. 

None 

BLKDTG,  C0PY,  C0VP,  DUMP,  MASSIG,  MAT0UT, 

SCHED,  SETEVN,  SETGUI , STMGEN 
MAPSEP 

WORK,  (BLANK),  DIMENS,  EDIT,  ENC0U,  LABEL, 

L0CATE,  L0GIC , SCHEDI,  SCHEDR,  TRAJl,  TRAJ2 
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G0DSEP-2 


Logic  Flow: 


Pages  196-B  and  196-C  have  been  deleted. 
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3.3.1  Subroutine ; 
Purpose: 

Remarks: 


AUGCNV  (C0VIN , C0V0UT,  I0PT) 

To  convert  internal  storage  format  of  the  aug- 
mented state  covariance  information  from  "block" 
(see  Remarks)  to  augmented  (see  Remarks)  form. 
The  augmented  covariance  form  is  assumed  as 
follows,  where  the  individual  matrix  partitions 
or  subblocks  are  defined  in  Input  (Vol.  II, 


User  1 s 

Manual 

, Sec . 

2.3)  : 

P 

CXS 

CXU 

CXV 

CXW 

T 

CXS 

PS 

CSU 

' CSV 

CSW 

T 

CXU 

T 

CSU 

PU 

CUV 

CUW 

T 

CXV 

T 

CSV 

T 

CUV 

PV 

CVW 

T 

CXW 

T 

CSW 

T 

CUW 

T 

CVW 

PW 

The  "block"  form  assumes  that  all  active  par- 
titions are  stored  contiguously  in  packed  form 

* 

in  the  following'  order: 

P,  CXS,  CXU,  CXV,  CXW,  PS,  CSU,  CSV,  CSW,  PU, 

CUV,  CUW,  PV,  CVW,  FW. 

C0VIN  and  C0V0UT  may  share  the  same  location. 
Therefore,  in  order  to  prevent  writing  over 
elements  which  have  not  been  properly  relocated 
in  going  from  block  to  augmented  form,  PW  is 
relocated  first,  then  CVW  and  so  on  up  the  above- 
mentioned  ordering  of  the  block  form.  For  the 
same  reason,  in  going  from  augmented  to  block 
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form  the  forward  ordering  (P,  CXS , etc.) 
sequence  is  followed  in  relocating. 


Input/Output: 


Input/ 

Variables  Output 
C0VIN  I 


C0V0UT  0 


I0PT  I 


L0CAUG  X 


L0CBLK  I 


NAUG'  I 


NDIM  . I 


Argument/ 

Common 


A 


A 


A 


C 


C 


C 


. Definition 

Augmented  covariance  in 
either  block  or  augmented 
form  according  to  I0FT 
Augmented  covariance  in 
opposite  form  from  C0VIN, 
according  to  I0PT 
Conversion  control  flag 
=1,  augmented  to  block  form 
--1,  block  to  augmented  form 
Array  locating  first  word  of 
each  covariance  partition 
within  augmented  form 
Array  locating  first  word  of 

I 

each  covariance  partition 

within  block  form 

Length  of  augmented  state 
vector 

Array  of  lengths  of  individual 
state  vector  partitions 


v 
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Local  Variables 

Variable 

ISUB 
JSUB 
NC0L 

NR0W 


Definition 

Subscripts  used  for  locating  elements 
at  L0CAUG  and  L0CBLK 

Number  of  columns  in  current  covariance 
sub-block 

Number  of  rows  in  current  covariance 
sub-block 


Subroutines  Called:  MPAK,  MUNPAK,  SYMUP 

Calling  Subroutines:  PPAK 

Common  Blocks:  W0RK}  DIMENS 


Logic  Flow: 


None 
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3,3.2  Subroutine: 
Purpose: 

Input/Output: 


BLKDTG 

To  initialize  label  arrays  in  common  /LABEL/ 
by  DATA  statements. 


Variable 


Input/ 

Output 


Argument/ 

Common 


AUGLAB 


EVLAB 
ME  SLAB 
PG  LAB 


PLAB 


VECLAB 


Definition  

Augmented  state  vector 
element  labels 
Event  labels 
Measurement  labels 
Control  covariance  parti- 
tion labels 

Knowledge  covariance  par- 
tition labels 
Augmented  state  vector 
partition  labels 


Local  Variables: 

None 

Subroutines  Called: 

None 

Calling  Subroutines: 

G0DSEP 

Common  Blocks: 

LABEL 

Logic  Flow: 


None 
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3.3.3  Subroutine: 
Purpose : 

Method : 

Remarks : 


Input/Output: 

Local  Variables: 
Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 

Logic  Flow: 


B0MB 

To  force  abnormal  termination  with  traceback. 
B0MB  computes  and  attempts  to  use  the  square 
root  of  -1.0. 

On  CDC  6000  series  computers  any  attempt  to  use 
the  square  root  of  a negative  number  when  op- 
erating with  real  variables  causes  program 
termination  and  provides  a traceback  to  the 
main  program  of  subroutines  called  and  the 
location  called  from  each.  B0MB  is  called 
from  several  places  in  G0DSEP  and  its  associated 
secondary  overlays  to  indicate  an  unresolvable 
conflict  of  control  variables. 

None 

None 

None 

STMRDR,  GAINF,  DEFALT,  DIMENS,  NMLIST,  0UTPTG 
None 


None 
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3,3.4  Subroutine:  C0RREL  (PVAR,  I0PTN,  PUNCH,  C0VLAB) 

Purpose : To  compute,  print,  and  optionally,  punch  stand- 

ard deviations  and  correlations  coefficients 
from  an  input  covariance  matrix. 

Remarks : Since  VARSD  (covariance  to  standard  deviations 

and  correlation  coefficients)  operates  strictly 
on  the  upper  triangle  of  a covariance  matrix, 
only  the  diagonal  of  PVAR  need  be  saved  outside 
PVAR.  The  remaining  lower  triangle  terms  are 
then  copied  into  the  upper  triangle. 

Input /Output : 


Variable 


Input/  Argument/ 

Output Common Definition 


PVAR 

I 

A 

Input  covariance  matrix. 

I0PTN 

I 

A 

Option  flag. 

= 1,  PVAR  in  covariance 

form 

= -1,  PVAR  already  in 

standard  deviations 
and  correlation 
coefficients 

PUNCH 

I 

A 

Logical  flag  indicating  if 
standard  deviations  and 
correlation  coefficients 
are  to  be  punched. 

C0VLAB 

I 

A 

Array  of  labels  to  be  used 
for  punching,  if  PUNCH  = 
.TRUE. 

AUGLAB 

I 

C 

Augmented  state  vector 
labels . 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

L0CAUG 

I 

C 

Array  locating  partitions 
of  augmented  covariance 
ma  trix. 

L0CLAB 

I 

C 

Array  locating  state  vector 
partition  labels  in  AUGLAB. 

NAUG 

I - 

C 

Length  of  augmented  state 
vector. 

NDIM 

I 

C 

Array  of  dimensions  of 
augmented  state  vector 
partitions. 

PRNC0V 

I 

C 

Logical  array  denoting 
which  partitions  of  stand- 
ard deviations  and  correla- 
tion coefficients  are  to  be 
printed. 

Variables: 

Variable 

Definition 

P0S 

1 <T  RSS 

position  uncertainty. 

VEL 

1 O'  RSS 

velocity  uncertainty. 

Subroutines  Called: 


Calling  Subroutines: 
Common  Blocks: 


MPAK,  VECMAG,  VARSD,  PRSDEV,  PUNSD,  PRC0RR, 
PUNC0R,  SYML0,  MUNPAK  . 

SETEVN,  GUIDE,  MEASPR 

W0RK,  DIMENS,  LABEL,  L0GIC 


C0RREL-3 
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D0  I = 1,  5 


PRNC0V  = F 


or 

NDIM  = 0 


< 


PRNC0V (I) 
NDIM (I) 


C0RREL-4 


> 


PRNC0V  = 
and 

, NDIM  > 

| PRSDEV  | 

Write  S 
Devia  tic 
rela  tioi 
f icient 
Diagnol 

:andard 
an,  Cor- 
i Coef-  ■ 
for  Ith 
Block 

PUNCH 


D0  J = 1+1,  5 


1 


FALSE 

w- 


"rue 

PUNSD 

Punch  Standard 
Deviation  and 
Correlation  Coeff 

< NDIM(J)  y 


* 0 

7 

PRC0RR 

Write 

Correlation 

Coefficients 

punch  y — ^ 

[false 


PUNC0R 


Punch 

Correia  tion 
Coefficients 
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SYML0 


Copy  PVAR 
Lower  Triangle 
Into  Upper 
Triangle 
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3.3.5  ■ Subroutine: 
Purpose: 

Method: 


Remarks : 


C0VP  (T,  TF,  STMRD , PIN) 

To  propagate  a covariance  between  two  time 
points . 

Three  options  are  available: 

1)  propagation  by  transition  matrices  read  from 
STM  file; 

2)  propagation  by  transition  matrices  computed 
as  needed  and  not  saved;  or 

3)  propagation  by  integration  of  covariance 
variational  equations. 

Independent  of  propagation  method,  the  output 
of  C0VP  is  always  stored  in  blank  common  located 
by  the  integer  variable  PTEMP.  This  is  true 
even  for  zero  length  propagation  intervals,  in 
which  case  the  input  covariance  is  merely  copied 
to  that  location. 


Additionally,  when  the  option  to  read  the  STM 
file  is  exercised,  C0VP  automatically  propagates 
the  control  covariance  if  control  propagation  is 
indicated  (logical  variable  PR0PG) . 

When  C0VP  is  called  with  both  STMRD  and  PD0T 
false  (nominally  for  prediction  events  only) 
tests  are  made  to  subdivide  the  complete  propaga- 
tion interval  into  as  many  subintervals  as  necessary 
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to  guarantee  that  no  transition  matrix  prop- 
agation crosses  a thrust  phase  change,  sirice 
that  would  violate  effective  process  noise  model 
assumptions. 

Input /Output: 

Input/  Argument/ 


Variable 

Output 

Common 

Definition 

T 

I 

A 

Beginning  time  of  propa- 
gation interval 

TF 

I 

A 

End  time  of  propagation 

interval 

STMRD 

I 

‘ A 

Logical  variable  indicat- 
ing source  of  transition 
matrices  if  transition 

matrices  are  to  be  used 

=T , read  transition 

matrices  from  STM  file 
=F , generate  transition 
matrices  by  calling 
TRAJ  overlay 

PIN 

I 

A 

Input  augmented  covariance 

DELTIM 

I/O 

C 

Propagation  interval  length 

DXDKST 

0 

C 

Keplerian  to  cartesian 

transformation  for  ephemeris 

body 
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Input/ 

Variable  1 Output 
DYN0IS  I 

GT  I/O 


GTSAVE  0 


IAUGDC  I 

ICALL  0 

IEP  I 


IEPHEM  I 
INTEG  0 
IST0P  0 
LIST  I 


Argument/ 

Common 

C 

C 


C 


C 

C 

C 

c 

c 

c 

c 


Definition 

Dynamic  noise  flag 
Transformation  matrix 
from  thrust  cone-clock 
system  to  heliocentric 
ecliptic  coordinates 
evaluated  at  end  of  prop- 
agation interval 
Same  trans f ormat ion  matrix 
as  GT , but  evaluated  at 
beginning  of  propagation 
interval 

Dynamic  augmentation  vector 
Initialization  parameter 
for  TRAJ  (sec.  3.5) 

Locator  in  UP,  VP  of 
elements  corresponding  to 
ephemeris  planet 
Flag  indicating  form  of 
ephemeris  elements,  if  any 
Control  parameter  for  TRAJ 
(sec.  3.5) 

Control  parameter  for  TRAJ 
(sec.  3.5) 

Array  cf  state  vector  augmen- 
tation parameter  numbers 
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Input/  Argument/ 

Variable  Output Common 

LISTDY  I C 

L0CF0  I ...  C 


L0CTC  I C 


LPD0T  I 


C 


Definition 

Array  of  dynamic  parameter 
numbers  included  in  transi- 
tion matrices 
Location  in  blank  common 
of  covariance  matrix  to  be 
integrated  when  PD0T  option 
is  selected 

Location  in  blank  common 
of  either  transition  matrix 
or  covariance  matrix  returned 
by  TRAJ  (sec.  ) after 

integration 

Ordered  list  of  parameters 
expected  by  TRAJ  (sec.  ) 

when  covariance  integration 
option  is  'selected.  LPD0T 
is  equivalenced  to  IGP0L 
array  in  common  /SCHEDI/ 
since  no  guidance  events  are 
permitted  when  integrating 
covariance  variational  equa- 
tions 

Control  flag  for  TRAJ  (sec  3.5) 


ME  VENT 


0 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

NAUG 

I 

C 

Length  of  total  augmented 
state  vector 

NEFHEL 

I 

C 

Number  of  ephemeris  elements 

augmented  to  state  vector 

NTPHAS 

I 

c 

'Number  of  current  thrust 
phase 

PD0T 

I 

c 

Logical  flag 
=T,  integrate  covariance 
variational  equations 
=F,  propagate  covariances 
by  transition  matrices 

PG 

I 

c 

Location  in  blank  common 
of  control  covariance 

PHI  . 

I 

c 

Location  in  blank  common 
of  transition  matrix 

PL0CAL 

I 

c 

Location  in  blank  common 
of  working  storage  block 
as  large  as  the  augmented 
covariance  matrix 

PR0PG 

I 

c 

Logical  flag,  operative 
only  if  PD0T  = FALSE  and 
STMRD  = TRUE 

=T,  propagate  control  co- 

variance  simultaneously 
with  knowledge 
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Input/ 

Variable  Output 


Q 0 

SMASS  I 

STATE 0 0 

TCURR  1 

TEVNT  0 


TG  I 

TM  1 

TREF  0 

TTHRST  I 

UP  1 


Argument/ 

Common 


C 

C 

c 


c 

c 


c 

c 

c . 

c 

c 


Definition 

^F,  do  not  propagate  con- 
trol covariance 
Effective  process  noise 
ma  tr  ix 
Mass  of  Sun. 

Initial  heliocentric 
ecliptic  S/C  state  for 
TRAJ  (sec  3.5)  when  ICALL  - 
1 

Current  trajectory  time 
Event  time  for  propagation 
(either  of  covariance  or 
transition  matrix)  to  by 
TRAJ  (sec  3.5) 

Epoch  of  input  control  co- 
variance  referenced  to  TLNCH 
Conversion  factor,  seconds/ 
day 

Reference  time  for  TRAJ 
(sec  3.5). 

Array  of  thrust  event  times 
Array  of  n— body  heliocentric 
position  vectors 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

UTRUE 

I 

C 

S/C  heliocentric  position 
vector 

VP 

X 

C 

Array  of  n-body  heliocentric 
velocity  vectors 

VTRUE 

I 

C 

S/C  heliocentric  velocity 
vec  tor 

Local  Variables: 
Variab le 
FRSTIM 


ILIST 
Tl 
T2 


Definition 

Logical  flag  used  when  PD0T  = TRUE 
to  control  one-time  only  initializa- 
tion of  parameters  for  TRAJ  (sec  3.5) 
=T,  first  pass  through  C0VP 
=F,  not  first  pass  through  C0VP 
List  of  augmented  dynamic  parameters 
Start  and  stop  times  respectively 
for  propagation  subintervals  as 
governed  by  thrust  events  (see 
Remarks) 


Subroutines  Called:  AMABT,  CARKEP,  C0PY,  DYN0,  L0ADRC , MMAB,  MMABT, 

MJJNPAK,  PR0P,  STMPR,  STMRDR,  STMUSE,  2ER0M 
Common  Blocks:  W0RK,  (I LANK),  C0NST,  DIHENS,  K£PC0N,  L0CATE , 

L0GIC , MEASI,  PR0PX , PR0PR,  SCHEDI,  SCHEDR, 
EPHEM,  TIME,  TRA Jl , TRAJ2 


Lc  Flow: 


c0vp  - 3 
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CYEQEC-1 

3.3.6  Subroutine:  CYEQEC  (STACYL,  GRL0N , ECEQ,  0MEGA , GEQSTA, 

GECSTA,  SPHERE) 

Purpose : To  compute  instantaneous  geocentric  Cartesian 

coordinates  of  a geographic  location  in  both 
the  equatorial  and  ecliptic  systems. 

Method : Given  either  spherical  (r,  ) or  cylindrical 

(rg>  % , z)  coordinates,  as  specified  by  the 

input  flag,  SPHERE,  the  Cartesian  equatorial 
coordinates  are  computed  as  indicated  in 
Section  6.3  of  the  Analytic  Manual.  The 
corresponding  ecliptic  position  and  velocities 
are  obtained  by  application  of  the  equatorial 
to  ecliptic  transformation,  i.e. 


where 


. 

r 1 

X 

y 

= E 

y 

z 

(ecliptic) 

z 

— ■ 

- , “ 

X 

' , n 

X 

y 

= E 

y 

L 

(ec liptic) 

z 

(equatorial) 


(equatorial) 


E 


0 

cos  E 
sin  £ 


0 

sin  E 
cos  £ 

- 
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Input/Output i 

Variable 

STACYL 

GRL0N 

ECEQ 

0MEGA 

GEQSTA 

GECSTA 

SPHERE 

Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 

Logic  Flow: 


CYEQEC-2 


Input/  Argument/ 

Output Common Definition 


I A 


I A 


Geographic  coordinates  for 
the  station  location.  Input 
as  radius,  latitude,  and 
longitude  when  spherical 
coordinates  are  being  used. 

Input  as  spin  radius,  longitude, 
and  z-height  for  cylindrical 
coordinates . 

Instantaneous  sidereal  hour 
angle  of  Greenwich. 

Equatorial  to  ecliptic  trans- 
formation E. 

Sidereal  rotation  rate  of 
the  Earth. 

Geocentric  equatorial  position 
and  velocity  of  the  station 
specified  by  STACYL. 

Geocentric  ecliptic  position 
and  velocity  of  the  station. 

Logic  flag  to  identify  whether 
STACYL  is  in  spherical  coor- 
dinates (SPHERE  = .TRUE.)  or 
cylindrical  coordinates 
(SPHERE  = .FALSE.). 


None . 

0BSRAD,  0BSAEA,  TSCHED 
None . 


None . 


3.3.7  Program: 
Purpose : 

Remarks : 


Input /Output: 

Local  Variables: 
Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 

Logic  Flow: 
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DATAG-1 


DATAG 

Executive  control  of  G0DSEP  data  overlay. 
DATAG  performs  no  computations.  It  merely 
calls  three  separate  subroutines  to  break  the 
data  overlay  coding  into  more  easily  managed 
blocks. 

All  initialization  parameters  for  G0DSEP. 

None 

DEFALT,  INPUTG , 0UTPTG 
G0DSEP 
None 
' None 
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DEFALT- 1 


3.3.8  Subroutine:  DEFALT 

Purpose : To  establish  default  values  for  all  error 

analysis  inputs. 

Remarks : Only  those  variables  not  having  default  values 

defined  in  G$DSEP  input  (Vol.  II,  User's  Manual, 
Section  2.3)  will  be  included  in  the  following 
Input/Output  list. 

Input/Output: 


Variables 

Input/ 

Output 

Argument 

Common 

EP0CH 

I 

C 

GHZER0 

0 

C 

IAUGDC 

I 

c 

IATTGJ2 

0 

C 

IAUGST 

0 

C 

IBAZEL 

0 

C 

Definition 

Julian  date  of  launch 
epoch 

Greenwich  hour  angle  eval- 
uated at  time  EP0CH 
Array  of  flags  controlling 
dynamic  parameter  augmen- 
tation for  transition 
matrices 

Location  of  J2  augmentation 
Location  of  station  location 
parameter  flags  in  IAUG 
array 

Location  of  azimuth  and 
elevation  angle  measurement 
bias  flags  in  XAUG  array 
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DEFALT- 2 


Variables 

Input/ 

Output 

Argument 

Common 

Definition 

IBDIAM 

0 

C 

Location  of  apparent  planet 
diameter  measurement  bias 
flag  in  IAUG  array 

IB STAR 

0 

C 

Location  of  star-planet 
angle  measurement  bias 
flags  in  IAUG  array 

IB2WAY 

0 

C 

Location  of  2-way  range 
and  range-rate  measurement 
bias  flags  in  IAUG  array  • 

IB3WAY 

0 

C 

Location  of  3-way  range 
and  range-rate  measurement 
bias  flags  in  IAUG  array 

IDMAX 

0 

c 

Maximum  allowable  parameter 
number  for  any  dynamic  param 
eter  in  IAUG  array 

IBHC02 

0 

c . 

Location  of  CO^  altitude  bia 
flag  in  the  IAUG  array  for 
horizon  sensor  measurements. 

IBHZS 

0 

c 

Location  of  horizon  sensor 

angle  bias  flags  in  the  IAUG 


array. 
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DEFALT- 3 


Input/ 

Variables  Output 
LIST  0 


Argument 

Common 


C 


LISTDY  ' 0 


C 


I0CS  0 


c 


haxaug 


0 


c 


Definition 

Array  listing  parameter 
numbers  of  augmented  state 
vector.  For  first  six 
locations  (for  basic  S/C 
state)  LIST(I)  = -I 
List  of  parameter  numbers 
of  all  dynamic  parameters 
augmented  to  S/C  state  for 
transition  matrices.  De- 
fining values  determined 
by  IAUGDC  array. 

Parameters  locating  first 
word  of  blank  common  avail 
able  to  TRAJ  (sec.  3.5  ) 
default  value 
= 1 

Maximum  allowable  length 
of  augmented  state  vector. 
Determined  by  dimensions 
of  LIST  and  AUGLAB  arrays. 


Default  value,  = 30. 


Var lab les 


MAXDIM 


MAXSTA 


NPHSTM 
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DEFALT-4 


Input/  Argument 

Output Common 

0 C 


0 


C 


0 


c 


Definition 

Array  of  maximum  allowable 
dimensions  on  individual^ 
state  vector  partitions. 

Values  set  are  governed 
by  dimensions  of  input  co- 
variance  matrices  in  sub- 
routine NMLIST  (sec  3.3.25). 
Default  values  are: 

(1)  = 6,  S/C  state  vector 

(2)  = 11 ,■ solve- for  parameters 

(3)  = 13,  dynamic  consider 

parameters 

(4)  = 15,  measurement  con- 

sider parameters 

(5)  = 10,  ignore  parameters 
Largest  station  number 
allowed  for  augmenting 
2-way  or  3-way  range  or 
pange-ra te  bias  to  the  S/C 
state  vector 

Length  of  augmented  state 
vector  of  dynamic  parameters 
used  in  transition  matrices 
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DEFALT- 5 


Variables 

Input/ 

Output 

Argument 

Common 

Definition 

0MEGAG 

0 

C 

Earth  sidereal  rotation 
rate  default  value 
= 6.300388099  rad/day 

RAD 

I 

C 

Conversion  factor,  degrees/ 
radian. 

TEND 

I 

c 

Trajectory  end  time  in 
days  referenced  to  EP0CH 
as  defined  in  $TRAJ  name- 
list  (Vol.  II , User's 
Manual,  sec.  2.1) 

THRUST 

I 

c 

Array  defining  thrust  con- 
trol policies,  phase  end 
times  and  specific  param- 
eter values  (see  common 
/TRAJ1/) 

TM 

I 

c 

Conversion  constant,  secondsj 
day 

T START 

I 

c 

Trajectory  start  time  in 
days  referenced  to  EP0CH, 

as  defined  in  ^TRAJ  namelist 
(Vol.  II,  User’s  Manual, 

Sec.  2.1) 
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DEFALT- 6 


Input/  Argument 

Variables  Output Common Definition 

XLAB  0 C Six-character  Hollerith 

labels  corresponding  to 
input  parameters  as  defined 
by  IAUG  array  (see  Vol.  II, 
User's  Manual,  Sec.  2.3) 


Local  Variables: 

Variable Definition 

MAXPAR  Maximum  number  of  parameters  available 

for  augmentation.  Governed  by  dimen- 
sions of  IAUG  and  XLAB  arrays.  Current 
default  value  = 50. 

TFRAC  Fraction  of  a day  the  initial  Julian 

date,  EP0CH,  is  away  from  midnight 
Greenwich  Mean  Time.  Used  in  computing 
GHZER0 . 

B0MB,  L0CATE 
DATAG 

W0RK,  (BLANK),  C0NST,  DATAGI,  DATAGR , DIMENS, 
GUIDE,  KEPC0N,  LABEL,  L0CATE , L0GIC,  MEASI, 

MEASR,  PR0PI , PR0PR,  SCHEDI,  SCHEDR,  TIME, 

TRKDAT , TRAJ1,  TRAJ2 
None 


Subroutine  Called: 
Calling  Subroutines: 
Common  Blocks: 


Logic  Flow: 
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3.3.9 

Purpose 


Remarks 


DIME NS -1 


Subroutine : DIMENS 

To  define  dimensions  and  locations  of  all 
matrices  located  in  blank  common. 

Blank  common  locations  set  aside  by  the 
variables  PHI,  PL0CAL  and  PTEMP  are  normally 
allocated  the  same  number  of  words  of  storage 
as  for  a covariance  matrix.  There  are,  how- 
ever, two  exceptions  to  this  standard.  If 
the  dimensions  of  transition  matrices  to  be 
read  from  the  STM  file  are  greater  than  those 
of  the  augmented  covariance  matrix,  or  if  both 
the  transition  matrices  from  the  STM  file  and 
the  augmented  covariance  are  smaller  than  9x9 
and  guidance  events  are  to  be  executed.  The 
second  case  requires  a minimum  9x9  area  since 
thrust  bias  sensitivities  are  required  for  low 
thrust  guidance  maneuver  evaluations. 

Since  only  one  secondary  overlay  may  reside  in 
core  at  any  one  time,  all  blank  common  locations 
associated  only  with,  secondary  overlays  begin  at 
the  same  address.  Therefore,  L0CS  (trajectory), 
H (measurement)  and  PG1  (guidance)  are  set  to 


the  same  location. 
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DIMENS -2 


Input/Output : 


Variable 

Inpu  t/ 
Output 

Argument/ 

Common 

Definition 

AUGLAB 

0 

C 

Hollerith  labels  for  all 
parameters  augmented  to 
state  vector. 

C0NRD 

I 

C 

Logical  flag  indicating 
if  control  uncertainties 
read  in. 

H 

0 

C 

Location  in  blank  common 
of  observation  matrix. 

IAUG 

I 

C 

Array  of  parameter  augmen- 
tation flags. 

IAUGDC 

0 

C 

Dynamic  parameter  augmen- 
tation flags. 

IAUGJ2 

I 

C 

Location  in  IAUG  array  of 
J2  parameter  flag. 

IDMAX 

I 

C 

Maximum  parameter  number 
allowed  for  a dynamic  para- 
meter in  IAUG  array. 

I GAIN 

I 

c 

Integer  flag  for  OD  algo- 
rithm. 

IGF0RM 

I 

c 

Integer  flag  indicating 
input  form  of  control 
uncertainty  matrices. 

IPF0RM 

I 

c 

Integer  flag  indicating 
input  form  of  knowledge 
uncertainty  matrices. 

LIST 

0 

c 

Array  containing  parameter 
numbers  for  all  parameters 
in  augmented  state  vector. 

LISTDY 

0 

c 

Dynamic  parameter  augmen- 
tation numbers. 

L0CAUG 

0 

c 

Array  locating  sub-blocks 
within  augmented  covariance. 
(See  AUGCNV,  Section  3.3,1), 

L0CBLK 

0 

c 

Array  locating  covariance 
sub-blocks  within  block 
form  (See  AUGCNV,  Section 
3.3.1). 
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DIMENS -3 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

L0CLAB 

0 

C 

Arra.y  locating  state  vector 
partitions  within  LIST  and 
AUGLAB  arrays. 

L0CF0 

0 

C 

Location  in  blank  common 
where  TRAJ  (Section  3.5) 
picks  up  covariance  matrix 
to  be  integrated. 

L0CS 

0 

C 

Location  in  blank  common 
of  areas  available  to  TRAJ 
(Section  3.5). 

MAXAUG 

I 

C 

Maximum  allowable  length 
of  augmented  state  vector. 

MAXDIM  . 

I 

C 

Array  of  maximum  allowable 
dimensions  of  individual 
state  vector  partitions. 

NAUG 

0 

C 

Length  of  augmented  state 
vec  tor . 

NAUGSQ 

0 

C 

NAUG* NAUG . 

NBLK 

0 

C 

Number  of  words  occupied 
by  augmented  covariance 
stored  in  block  form  (See 
AUGCNV,.  Section  3.3.1). 

NDIM 

0 

c 

Array  of  current  dimensions 
of  individual  augmented 
state  vector  partitions. 

NGUID 

I 

c 

Number  of  guidance  events 
to  be  executed. 

NPHSTM 

0 

c 

Number  of  dynamic  parameters 
included  in  transition 
matrices  on  STM  file. 

NS0LVE 

0 

c 

Total  number  of  parameters 
to  be  solved-for  by  filter 
(including  S/C  state). 
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DIME  NS -4 


Input/  Argument/ 
Variable Output Common 


Definition 


P 0 

PD0T  I 


PG  0 

PGl  0 

PG2  0 

PG3  0 

PG4  0 

PHI  '0 

PL0CAL  0 

PTEMP  0 

PWLS  0 

XLAB  I 


C Location  in  blank  common 

of  knowledge  covariance. 


C Logical  flag  for  covariance 

propagation. 

=T,  integrate  covariance 
=F,  use  state  transition 
ma  trices . 


Location  in  blank  common 
of  control  c ova r i a nc e . 


V 


Location  in  blank  common 
of  NAUG  X NAUG  storage 
blocks  used  for  guidance, 


Location  in  blank  common 
of  transition  matrix. 


Working  locations  in  blank 
common  for  intermediate 
operations  on  covariances 
and  transition  matrices. 


C Location  in  blank  common 

of  weighted  least  squares 
reference  covariance. 


C Array  of  Hollerith  labels 

for  all  parameters  available 
for  augmentation. 


Local  Variables:  None 

Subroutines  Called:  B0MB 

Calling  Subroutines:  INPUTG 

Common  Blocks:  W0RK,  (BLANK),  DATAGI,  DATAGR,  DIMENS,  LABEL, 

L0CATE,  L0GIC,  MEASI,  SCHEDI,  TRAJ2 
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DIME  NS -5 


Logic  Flow: 


DIMENS 


Compute  NEPHEL,  Zero  NDIM 
Array.  Redefine  IAUG  Array 
To  Distinguish  Between 
Measurement  And  Dynamic 
Consider  Parameters 


Compute  NDIM(I), 
LIST  (I ) , AUGLAB(T), 
NAUG,  NAUGSQ 


Compute  Blank  Common  Locators 
If  No  Guidance,  Leave  No 
Storage  Behind  PG. 

If  No  WLS  Filtering,  Leave 
No  Storage  Behing  PWLS 


NDIM(I)  MAXDIM(I) 

Is  Ic^  Augmented  State  Vector 
Partition  Within  Allowable 
Dimensions  ? 


IPF0RM  = 1,  Or 
CONRD  = T And  IGF0RM  = 1 
Have  Either  Knowledge  Or 
Control  Uncertainties  Been  Input 
In  Unpacked  Form? 


ND IM ( I ) * NDIM ( J ) MAXD I M ( I ) *MAXDIM ( J f 
Does  Total  Length  of  Any  Packed 
Covariance  Sub-Block  Exceed  Total 
Length  Allotted  To  It  On  Input? 


No 
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. DIME  NS  *6 
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DYN0-1 


3.3.10  Subroutine;  DYN0  (T,  DT,  PHIMAT) 

Purpose:  To  compute  effective  process  noise. 

Method:  ' See  Volume  X,  Analytical  Manual,  Section  6.2. 

Remarks:  For  PDOT,  DYN0  is  used  to  modify  the  thrust  bias 

and  noise  partitions  of  the  augmented  covariance 
when  the  number  of  thrusters  has  changed  (at 


thrust  switching  events). 

To  change  the  process  noise  model,  subroutines 


DYN0,  0UTPTG , and  L0ADFM  (in  TRAJ)  may  be 


affected 

for  PDOT,  and 

subroutines  DYN0  and 

STMUSE  may  be  affected 

for  STM  usage  (effective 

process 

noise) . 

Input/Output : 

Variable 

Input/ 

Output 

Argument/ 

Common 

De  f ini tion 

T 

I 

A 

Trajectory  time  at  begin- 
ning of  propagation 
interval  (STM  only) 

DT 

I 

A 

Interval  length  (days). 

PHIMAT 

I 

A 

Augmented  transition 
matrix  over  propagation 
interva  \< 

EPTAU 

I 

C 

Array  of  process  noise 
correlation  times. 

EPVAR 

I 

C 

Array  of  process  noise 
variances . 

GT 

I 

C 

Transformation  matrix 
from  magnitude  and  direc- 
tion to  ecliptic  carte- 
sian coordinate  system 
evaluated  at  end  of  prop- 
agation interval. 

GTSAVE 

I 

c 

Same  as  GT  matrix,  only 
evaluated  at  beginning  of 
propagation  interval 

I TV  ERR 

I 

c 

Second  process  noise  type 
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DYN0-2 


Input/  Argument/ 

Variable  Output Common 


Definition 


NAUG  I C 

NTFHAS  I C 

PIC 
PTEMP  I C 

Q 0 C 

SIG0N  I C 

THRUST  I C 

TM  I C 

VTRUE  I C 

Local  Variables: 

Va  riable 


Length  of  augmented  state 
vector. 

Number  of  current  thrust 
phase . 

Location  in  blank  common 
of  knowledge  covariance. 

Location  in  blank  common 
of  temporary  covariance. 

Effective  process  noise 
matrix  (6x6). 

Thrust  start  time  uncertainty 

Array  of  thrust  phase 
definition  parameters. 

Conversion  constant, 
seconds/day . 

S/C  velocity  vector. 


Definition 


NCPHAS 


Number  of  next  thrust  phase 


0MEC0V 


Effective  velocity  covariance  in 
magnitude  and  direction. 


PHISUB 


THRSTR 

VEFF1 

VEFF2 


6x3  sub-block  of  PHIMAT  representing 
sensitivity  of  position  and  velocity 
at  end  of  interval  to  velocity  at 
beginning  of  interval. 

Ratio  of  operating  thruster  at  phase 
change . 

Effective  ecliptic  cartesian  velocity 
covariance  at  beginning  of  interval. 

Effective  ecliptic  cartesian  velocity 
covariance  at  end  of  interval. 


Subroutines  Called:  ADD,  AMABT,  EP,  L0CLST,  MMABT,  MMABAT,  MPAK, 

MUNPAK,  SCALE,  SDVAR,  SYMUP,  VARSD,  ZER0M 

Calling  Subroutines:  C0VP,  GUIDE,  SETEVN 

Common  Blocks:  W0RK,  (BLANK),  C0NST,  DIMENS,  L0CATE,  L0GIC, 

PR0PR , TRAJ1,  TRAJ2 
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DYN0-3 
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3,3.11  Subroutine 
Purpose : 

Remarks : 


Input /Out put : 

Variable 

A 

N 

PVSUB 

PZER0 

VZER0 


EIGPRN-1 


EIGPRN  (A,  N,  PVSUB,  PZER0,  VZER0) 

To  compute  and  print  eigenvectors  and  eigen- 
values of  an  input  matrix. 

Two  options  on  computing  eigenvalues  and 
vectors  are  provided.  The  first  operates  on 
the  complete  input  matrix.  The  second  operates 
on  the  3x3  position  and  velocity  sub-blocks 
only,  which  are  assumed  to  be  the  first  and 
second  3x3  diagonal  sub-blocks,  respectively. 


Input/  Argument/ 

Output Common Definition 


I 

I 

I 


I 


A Input  matrix. 

A Dimension  of  input  matrix 

(assumed  to  be  square). 

A Logical  flag  controlling 

computation  option. 

-T,  operate  on  position 
and  velocity  sub- 
blocks . 

=F,  operate  on  complete 
matrix. 

A Off-diagonal  annihilation 

value  for  complete  matrix 
if  PVSUB  = .FALSE,  or  for 
position  sub-block  only 
if  PVSUB  = .TRUE. 


I A Off-diagonal  annihilation 

value  for  veloci ty  . sub- 
block if  PVSUB  = .TRUE. 

Not  used  if  PVSUB  = .FALSE. 
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EIGPRN-2 


Local  Variables: 


Variable 

Definition 

ICYCLE 

Cycle  control  flag  when  PVSUB  = 
.TRUE,  indicating  whether  processing 
position  or  velocity  sub-block. 

0DZER0 

Off-diagonal  annihilation  value  given 
to  EIGENV. 

VALPV 

Array  of  eigenvalues  returned  by 
EIGENV. 

VECPV 

Array  of  eigenvectors  returned  by 
EIGENV. 

Subroutines  Called: 

EIGENV,  MAT0UT,  SQRT,  MPAK 

Calling  Subroutines:  SETEVN,  RELC0V 


jC ommon  Blocks  : 


.None 
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Logic  Flow: 


EIGPRN-3 


RETURN 


238 


EIGPRN-4 


Fetch  3x3 
Veloci ty 
Sub  - Block 
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3.3.12 

Purpose 


Method: 


Remarks 


ESCHED-1 

Subroutine:  ESCHED  (KIND,  NCNT,  NST0P,  TIME) 

To  modify  event  counters  to  guarantee  that  of 
all  events  requested  in  namelist  0G0DSEP,  only 
those  occurring  between  the  initial  and  final 
times  of  the  present  error  analysis  are  sched- 
uled. 

If  five  events  of  a single  type  are  scheduled  * 
according  to  namelist  0G0DSEP,  three  of  which 
occur  before  trajectory  time  TCURR,  the  remain- 
ing two  events  are  .not  shifted  into  the  first 
two  locations  for  that  event.  Rather,  the 
event  counter  is  set  to  3,  informing  the 
scheduler  that  the  fourth  event  of  that  type 
will- be  the  first  scheduled. 

If  any  guidance  events  are  scheduled,  but  the 
last  is  not  scheduled  within  .5  day  of  error 
analysis  final  time,  this  subroutine  automatically 
schedules  an  additional  guidance  event  of  policy 
zero.  This  merely  forces  a print  of  all  control 
uncertainties  at  the  final  time. 

Also,  to  minimize  complexity  of  SCHED  (Section 
3.3.36),  guidance  event  times  are  adjusted  by 
the  delay  time  in  this  subroutine. 
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ESCHED-2 


Input /Out put : 


Variable 

Input/ 

Output 

Namelist/ 

Common 

Definition 

KIND 

I 

A 

Event  code. 

“ 2y  eigenvector 
= 3,  thrust 
= 4,  guidance 
= 5,  prediction 

NCNT 

0 

A 

Event  counter,  set  equal 
to  number  of  events  sched- 
uled by  namelist  0G0DSEP 
which  must  be  skipped  dur- 
ing execution. 

NST0P 

I/O 

- A 

■ Total  number-  of  events  of 
type  KIND,  including  those 
skipped  according  to  NCNT. 

TIME 

I 

A 

Array  of  scheduled  event 
times . 

EVLAB 

I 

C 

Array  of  Hollerith  event 
labels . 

IGP0L 

I 

c 

Array  of  guidance  policy 
flags . 

IGREAD 

I 

c 

Array  of  guidance  namelist 
read  control  flags. 

TCURR 

I 

c 

Current  (and  initial)  tra- 
jectory time. 

TCUT0F 

I 

c 

Array  of  guidance  event 
cutoff  times. 

TDELAY 

I 

c 

Array  of  guidance  event 
delay  times. 

TFINAL 

I 

c 

Trajectory  final  time. 

TPRED2 

I 

c 

Array  of  times  predicted 
to 

241 


Local  Variables: 

Variable 

NUMBER 

Subroutines.  Called: 
Calling  Subroutine: 
Common  Blocks: 

Logic  Flow: 


ESCHED-3 


Definition 


Actual  number  of  events  of  code 
KIND  to  be  executed. 


None 

0UTPTG 

LABEL,  SCHEDI,  SCHEDR 
None 
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3.3.13A  Subroutine:  ESLE  (P,  N) 

Purpose : To  load  equivalent  station  location  errors 

into  augmented  covariance  matrix. 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

P 

I/O 

A 

Augmented  covariance 
matrix  still  in  standard 
deviations  and  correlation 
coefficients , 

N 

I 

A 

Dimension  of  augmented 
covariance  matrix. 

C0RL0N 

I 

C 

Station- to-Station  longi- 
tude correlation  coeffi- 
cient . 

IAUG 

I 

C 

Parameter  augmentation 
list. 

IAUGST 

I 

C 

Location  of  station  loca- 
tion parameter  flags  in 
IAUG  array. 

LIST 

I 

C 

List  of  parameters  con- 
tained in  augmented  state 
vector . 

NST 

I 

C 

Number  of  tracking  stations 

SIGL0N 

I 

c 

Standard  deviation  in  sta- 
tion longitude. 

SPHL0C 

I 

c 

Input  logical  variable  to 

identify  whether  the  station 
location  coordinates  and 
error  covariances  are  in  a 


spherical  (SPHLOC  = .TRUE.) 
or  cylindrical  (SPHLOC  = 
.FALSE.)  representations. 
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Local  Variables: 

Variable 

EQSLE 


IL0C 

L0CATE 


Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 

Logic  Flow: 


ESLE-2 


Definition 


Local  array  equivalenced  to  station 
location  standard  deviation  terms. 


(Spherical)  (Cylindrical) 


EQSLE(1)= 
EQSLE(2)= 
EQSLE (3 )= 
EQSLE (4 )= 


SIGR 
S IGL0N 
SIGLAT 
C0RL0N 


SIGRS 

SIGL0N 

SIGZ 

C0RLON 


Counter  for  number  of  stations  whose 
location  uncertainties  are  included 
in  the  augmented  state. 


Array  used  to  locate  off  diagonal 
positions  where  longitude  correla- 
tions must  be  loaded  if  more  than 
one  station’s  location  errors  are 
augmented  * 


None 

INPUTG 

W0RK,  DATAGI,  DATAGR,  DIMENS,  MEASI,  MEASR,  TRKDAT 


None 
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3.3.13B  Subroutine: 

FBURN  (SMAT,  UMAX, 

NTARG,  NC0N,  CJ0NWT,  TARWT, 

TEC0V,  GAMMA,  VMAT, 

BURNP,  LTARG,  LABS,  LABC0N, 

VTA,  NAUG,  TBURN,  LP0N) 

Purpose : 

To  compute  the  low 

thrust  guidance  matrix  and 

associated  guidance 

parameters . 

Method : 

See  Analytic  Manual,  Section  6.6  (Guidance) 

Inpu  t /Output : 

Variable 

Input/ 

Output 

Argument / 
Common 

Definition 

AUGLAB 

I 

C 

Vector  of  labels  for 
augmented  state. 

BURNP 

I 

A 

Mass  and  thrust  accelera- 
tion at  guidance  epoch  and 
cutoff. 

C0NWT 

I 

A 

Control  parameter  weights. 

ENGINE(IO) 

0 

A 

Exhaust  velocity. 

GAMMA 

0 

A 

Guidance  matrix. 

labcUn 

I 

A 

Vector  of  control  parameter 
labels. 

LABS  ' 

I 

A 

Vector  of  printout  labels. 

LP0N 

I 

C 

Location  in  blank  common 
of  knowledge  covariance. 

LTARG 

I 

A 

Vector  of  target  lables. 

NAUG 

I 

A 

Dimension  of  augmented  state. 

NC0N 

I 

A 

Number  of  control  parameters. 

NTARG 

I 

A 

Number  of  target  parameters. 

PTEMP 

I 

C 

Location  in  blank  common  of 
temporary  (working)  covariance. 

SMAT 

I 

A 

Sensitivity  matrix  of  target 
WRT  control  parameters. ; 

244  -B 


FBURN-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

TARWT 

I 

A 

TBURN 

I 

A 

TEC0V 

I 

A 

UMAX 

I 

A 

VMAT 

I 

A 

VTA 

I 

A 

Definition 

Target  parameter  weights. 

Duration  of  guidance  burn. 

Target  error  covariance 
before  guidance. 

Vector  of  maximum  control 
corrections  allowed. 

Variation  matrix  of  target 
WRT  state  (at  guidance 
epoch) . 

Logical  flag  for  variable 
time  of  arrival  guidance. 


Local  Variables: 
Variable 

cgam 

CSWATE 

DC0N 

GAMT 

LC0N 

LISTC 

LISTU 

NCU 

NUN 

STEMP 


* Definition 

Guidance  matrix  for  constrained 
control  parameters. 

Weighting  factor  for  time  parameters. 
Scaling  factor. 

Guidance  matrix  transpose  used  as 
working  array. 

Local  vector  of  control  labels 
(LABC0N) . 

Vector  of  control  parameter  numbers 
(new  ordering). 

Vector  of  control  parameters  numbers 
(old  ordering). 

Number  of  constrained  controls. 

Number  of  unconstrained  controls. 

Local  sensitivity  matrix  (SMAT). 

Target  error  covariance  resulting 
from  residual  (non-removeable)  control 
error . 


TRC^V 
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Variable 


Def ini t ion 


UMAX  I 


UWATE 


Control  parameter  correction  matrix. 
Local  vector  of  control  bounds  (UMAX). 

r 

Local  vector  of  control  weights  (C^NWT) 


Subroutines  Called:  ADD,  AMAB,  AMABT,  C0PY,  CJ0PYT,  GENINV , ICJ0PY, 

I DENT,  L0ADRC,  MAT0UT,  MMART,  MMATBA,  NEGMAT^ 
PRSDEV , SCALE,  VARSD,  ZER0M 

Calling  Subroutine:  GUIDE 

Common  Blocks:  (BLANK),  CONST,  LABEL,  L0CATE,  TRAJ1,  W0RK 
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FBURN-4 
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3.3.14  Subroutine: 

Entry  Point: 
Purpose: 

Method : 


Remarks: 


Input /Output : 

Variable 

P 


FILTR-1 

FILTR  (P,  PC0N,  H,  R,  N,  NS,  NR,  GAIN,  RESID, 
PP) 

FILTR2 

To  compute  the  orbit  determination  filter  gain 
for  a measurement  and  update  the  knowledge 
covariance  using  that  gain. 

A general  purpose  filtering  routine  (See 
Analytic  Manual,  Sections  6.4  and  6.5)  which 
nominally  computes  the  Kalman- Schmidt  (KS) 
gain  and  updates  the  knowledge  covariance. 
Alternately,  via  the  entry  point,  FILTR2,  the 
covariance  can  be  updated  with  an  input  gain. 
Several  places  in  FILTR  computations  require 
the  use  of  sub-blocks  of  an  input  or  inter- 
mediate matrix.  Wherever  possible,  advantage 
is  taken  of  internal  storage  formats  so  that 
the  full  matrix  may  be  accessed  using  only  the 
correct  sub-block  dimensions,  eliminating 
requirement  for  pulling  out  the  sub-block  and 
storing  it  in  an  intermediate  array. 


Input/ 

Argument/ 

Output 

Common 

Definition, 

I 

A 

Knowledge  covariance  before 

measurement. 

H 


I 


A 


Observation  matrix. 
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Variable 

GAIK 

PP 

. N 

NR 

NS 

PC0N 

R 

RES  ID 

Local  Variables: 

Variable 

HP 

INVRES 

INVRS2 

Subrountines  Called 


FILTR-2 


Input/ 

Output 

Argument/ 

Common 

Definition 

0 

A 

Gain  matrix. 

0 

A 

Knowledge  covariance  after 
measurement. 

I 

A 

Dimension  of  augmented 
covariance. 

I 

A 

Dimension  of  current 
measurement. 

I 

A 

Total  number  of  variables 
and  parameters  being  esti- 
mated by  filter. 

I 

A 

Location  in  blank  common  of 
working  storage  as  large  as 
augmented  covariance  matrix. 

I 

A 

Measurement  white  noise 
matrix. 

0 

A 

Measurement  residual  matrix. 

Definition 


Product  of  observation  matrix  and 
input  covariance  matrix. 

Location  in  common/W0RK/  of  Inverse 
of  measurement  residual  matrix. 

Location  in  common  /W0RK/  of  working 
storage. 


AMABT,  AMATBT,  C0PY,  INVSQM,  MMAB,  MMATB,  SCALE, 


SYMTRZ 
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FILTR-3 


Calling  Subroutines:  MEAS 

Common  Blocks:  W0RK 

Logic  Flow: 


Pages  247  and  248  are  deleted 
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3.3.15  Subroutine 
Purpose : 

Input/Output : 

Variable 

K 

RDWRIT 

CHEKPR(4) 

MESEVN  ' 

- NR 
NS0LVE 

Local  Variables: 
Variable 
MEV 


GAINF-1 


gainf  (k,  rbwrit) 

To  read  gain  matrix  from  or  write  gain  matrix 
to  GAIN  file  (TAPE  4). 


Input/ 

Output 

I/O 

I 


I 


I 

I 


Namelist/ 

Common 

A 

A 


Definition 

Gain  matrix  (real). 
Read/write  control  flag 

- 4HREAD,  read  gain  matrix 

- 5HWRITE,  write  gain 
matrix. 

Logical  check  print  flag, 
operative  for  both  read 
and  write  modes. 

= T,  print  gain  matrix  to 
output 

= F,  do  not  print  gain 
matrix. 

Measurement  code  corre~ 
sponding  to  gain  matrix. 

Number  of  columns  in  gain 

m3  l-n'y  . 


I 


C Number  of  rows  in  gain 

matrix. 


Definition 


Measurement  code  read  from  GAIN  file. 
MEV  is  compared  to  MESEVN,  the  code 
provided  from  SCHED  (Section  3.3.36) 
to  guarantee  proper  meshing  of  gain 
with  its  original  data  type. 


Subroutines  Called:  MAT0UT,  B0MB 
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Calling  Subroutine:  MEAS 

Cornmon  Blocks:  L0GIC,  MEASI,  SCHEDI 


Logic  Flow: 


None 
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3.3.16  Subroutine : 
PurpuHo : 


Remarks : 


Calling  Subroutine: 


CAINUS  (K) 

T<>  bo  rop  I ur<'t\  by  unor  If  /my  g/i  In  matrix 
algorithm  is  desired  other  than  Ka  lnuin- Schmid  t , 
sequential  weighted  least  squares,  or  read 
from  GAIN  file. 

Users-supplied  gain  is  expected  to  be  an  infre- 
quently exercised  option.  The  user  who  wishes 
to  incorporate  his  own  algorithm  should  be 
very  familiar  with  filtering  theory..  Though 
there  are  no  "wrong”  algorithms,  any  algorithm 
not  carefully  thought  out  --  and  many  that  are  -- 
will  generally  be  meaningless  and  harmful.  The 
only  absolute  rule  is  that  the  gain  matrix  has 
dimensions  NS0LVE  by  NR  (common/MEASl/) . 

MEAS 
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3.3.17  Subroutine;  GUIDE 

Purpose:  To  perform  all  computations  and  printout  for  the 


execution  of  a guidance  maneuver. 


Method: 

Both 

low  thrust  and 

impulsive  AV  guidance  are 

available.  See  Vol. 

I,  Analytical  Manual,  Sec. 

6.6 

for  details. 

Input/Output: 

Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

AUGLAB 

I 

C 

Hollerith  label  array  for 
all  augmented  parameters. 

CHEKPR(5) 

I 

C 

Check  print  flag 
=T,  low  thrust  guidance  - print, 
knowledge  and  control  un- 
certainties at  end  of  burn 
interval  and  transition 
matrix  over  burn  interval. 

AV  guidance  - prints  eigen- 
values and  eigenvectors 
of  AV  covariance. 

=F,  no  optional  print 

CHEKPR (7 ) 

I 

c 

Print  (if  TRUE)  equatorial 
state  covariance. 

C0NWT 

I/O 

C ' 

Array  of  control  weights. 

DELAY 

I 

c 

Guidance  delay  time  for 
current  maneuver. 

DYN0IS 

I 

c 

Dynamic  noise  flag 

F0V 

I 

c 

Velocity  covariance  off- 
diagonal  annihilation  value 
for  eigenvalue /vector  compu- 
tation. 

GT 

I/O 

c 

Transformation  matrix  for 
dynamic  noise  computation. 

GTBURN 

I 

c 

GT  matrix  evaluated  at  be- 
ginning of  burn  interval. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

GTDLAY 

I 

C 

GT  matrix  evaluated  at 
beginning  of  guidance  delay 
period. 

GTSAVE 

I/O 

c 

Transformation  matrix  for 
dynamic  noise  computation. 

IP0L 

I 

c 

Guidance  policy  for  current 
maneuver . 

IREAD 

I 

c 

Namelist  $GEVENT  read  control 
flag  for  current  maneuver. 

ITP 

I 

c 

See  UREL,  VREL  below. 

L0CTC 

I 

c 

Location  in  blank  common  of 
transition  matrix  from  cutoff 
time  to  target  condition  time. 

NAUG 

I 

c 

Length  of  augmented  state  vector. 

NCNTG 

I 

c 

Number  of  current  guidance 
maneuver. 

NC0N 

I 

c 

Number  of  low  thrust  controls. 

NPHSTM 

I 

c 

Dimension  of  state  transition 
matrix  from  TRAJ  (Sec.  3.5  ) 
with  dynamic  parameters  only. 

NTP 

I 

c 

Code  number  for  target  body. 

P 

I 

c 

Location  in  blank  common  of 
knowledge  covariance  at 
beginning  of  guidance  delay 
period. 

PG 

I 

c 

Location  in  blank  common  of 
control  covariance  at  beginning 
of  guidance  delay  time. 

PG1 

I 

c 

Locations  in  blank  common 
for  intermediate  covariances 

PG2 

I 

c 

required  for  guidance  compu- 
tations . 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

PHI 

I 

C . 

Location  in  blank  common  of 
transition  matrix  over  delay 
period . 

PI 

I 

c 

Mathematical  constant^  IT 

_£LAB 

I 

c 

Array  of  knowledge  covariance 
labels . 

PL0CAL 

I 

c 

Location  in  blank  common  of 
covariance-sized  working  storage. 

PTEMP 

I 

c 

Same  as  PL0CAL. 

RAD 

I 

c 

Conversion  constant,  degrees/ 
radian. 

S 

I 

c 

Sensitivity  matrix,  cutoff 
state  w.r.t.  controls. 

SMAT 

I/O 

c 

Sensitivity  matrix,  targets 
WRT  controls. 

TBURN 

I 

c 

Burn  interval  duration  for 
current  maneuver. 

TIMFTA 

I 

c 

Target  condition  evaluation 
time  for  fixed  time  of 
arrival  guidance. 

TM 

I 

c 

Conversion  constant,  seconds/day. 

T0FF 

I 

c 

Cutoff  time  for  current  maneuver. 

T0N 

I 

c 

Startup  time  for  current 
maneuver . 

TSTM 

I 

c 

Most  recent  STM  file  time  point. 

TST0P 

I 

c 

Trajectory  stop  time  from  inte- 
grator for  B-plane  or  closest 
approach  targeting. 

UREL (1 , ITP) 

I 

c 

S/C  position  vector  at  target 
condition  time. 

VARDV 

I 

c 

Array  of  execution  error  variance 

varmat 

I/O 

c 

Variation  matrix,  sensitivity 
of  target  conditions  to  cutoff 
state. 

VREL(1 , ITP) 

I 

c 

S/C  velocity  vector  at  target 
condition  time. 
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Input/  Argument/ 

Variable Output  Common  Definition 

VRNIER  I C Logical  flag 

= T,  current  maneuver  is 
vernier. 

= F,  current  maneuver  not 
vernier. 

Local  Variables: 


Variable Definition, 


LABC0N 

Array  of  control  Hollerith  labels. 

CSWATE 

Dimensional  weighting  for  start-up  and 
cutoff  time  controls. 

DELTAV 

Expected  velocity  update  for  AV  guidance 

DVC0V 

Impulsive  AV  covariance 

DVM 

Mean  AV  magnitude. 

ETA 

1 

Variation  matrix,  target  conditions  wrt 
state  at  target  condition  time. 

GAMMA, 

Guidance  matrix 

LABS 

Labelling  array 

ITARG 

Input  parameter  to  EC0MP  (Sec.  3.6.5) 

JST0P 

Input  parameter  to  EC0MP  (Sec.  3.6.5) 

LPG0FF 

Location  in  blank  common  of  control 
covariance  at  cutoff  time. 

LPG0N 

Location  in  blank  common  of  control 
covariance  at  startup  time. 

LP0FF 

Location  in  blank  common  of  knowledge 
covariance  at  cutoff  time. 

LP0N 

Location  in  blank  common  of  knowledge 
covariance  at  startup  time. 

NTARG 

Number  of  targets. 

PHIBR^ 

6x6  state  transition  matrix  over 
burn  interval. 

PHITAR 

6x6  state  transition  matrix  from 
cutoff  to  target  condition  time. 
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Variable 

Definition 

SIGDV 

Standard  deviation  in  &V . 

labtar 

Array  of  target  labels* 

TARTIM 

Target  condition  evaluation  time. 

TEMP 

Hollerith  prefix. 

LTARG 

Current  target  label. 

TRS 

Trace  of  &V  covariance. 

VMAT 

Variation  matrix,  target  parameters 
WRT  state  at  guidance  epoch. 

VTA 

Logical  flag  for  variable  time  of 
arrival  low  thrust  XYZ  guidance 
(if  TRUE). 

Subroutines  Called: 

ADD,  C0PY,  C0RREL,  DYN0,  EC0MP , EIGENV, 
FBURN,  GENINV,  IC0PY,  MAT0UT,  MMAB, 

MMABAT,  MPAK,  MUNPAK,  NEGMAT,  PR0P,  PRSDEV, 
PUNC0R,  RELC0V , SCALE,  SUB,  VARSD,  VERR. 

Common  Blocks: 

W0RK,  (BLANK),  C0NST,  DIMENS;  GUIDE,  KEPC0N 
LABEL,  L0CATE,  L0GIC,  MEASI,  PR0PR,  SCHEDI, 
SCHEDR,  TIME,  TRAJ1 , TRAJ2. 
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Logic  Flow: 
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Store  6x6  control  covariance  for 
maneuver  sizing  C0MM0N  (PlifCAX.). 
Use  control  minus  knowledge  for 
Vernier.  Use  target  relative  if 
ephemerj  s body  and  target  body  are 
the  same. 
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#300 


V. 


'Write  before  and 
after  maneuver  tar- 
get condition 
uncertainties 


O 


C0f 

Y 

Update  cc 
variance 
ledge  at 
of  delay 

ntrol  co- 
to  know- 
beginning 
interval 

#9999 


399  ^ 

^RETURN  ^ 
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3.3.18  Subroutine:  INPUTG 


Purpose: 

To 

control  all  inputs 

to  G0DSEP 

Remarks : 

Common /L0CAL/  appears 

in  this  subroutine  only  and 

is 

an  ordering  artifice  to  equivalence  its  elements 

to 

the  array  L0CATE. 

Input /Output: 
Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

C0NRD 

0 

C 

Logical  flag 

=T,  control  uncertainties  read  in 
=F , control  uncertainties  not  read 

IGF0RM 

0 

C 

Flag  indicating  form  of  input 
control  uncertainties. 

IPF0RM 

0 

C 

Flag  indicating  form  of  input 
knowledge  uncertainties. 

ISTMF 

I 

C 

STM  file  usage  flag 

MAXDIM 

I 

C 

Array  of  maximum  dimensions 
allowed  on  input  covariance 
sub-blocks . 

NAUG 

0 

C 

Length  of  augmented  state  vector. 

P 

0 

C 

Location  in  blank  common  of 
knowledge  covariance. 

PG 

0 

C 

Location  in  blank  common  of 
control  covariance 

XLAB 

I 

C 

Array  of  Hollerith  labels  for 
all  possible  augmentation 
parameters . 

Local  Variables: 

Variable 

Definition 

CXS,  CXU,  CXW,  PS,  CSU,  CSV,  CSW, 
PU,  CUV,  CUW,  FV,  CVW,  PW 


Locations  in  blank  common  of 
input  covariance  matrix  sub- 
blocks of  the  same  name. 
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Variable 

NT0T 

Subroutines  Galled; 
Calling;  Subroutines: 
Common  Blocks: 

Logic  Flow: 


INPUTG-2 


Definition 


Total  number  of  words  allocated  for 
each  of  knowledge  and  control  uncer- 
tainties to  be  read  in  namelist 
$G0DSEP. 

NMLIST,  DIMENS,  PPAK,  ESLE,  SYMUP 
DATAG 

W0RK  .(BLANK) , BATAGR,  DATAGI,  DIMENS,  L0CATE, 
MEASI,  TRAJ2,  L0CAL  • 


None 
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3*3.19  Subroutine : 
Entry  Points: 

Purpose : 

Method:. 


L0ADRC-1 

L0ADRC  (A,  MA,  NA,  LISTA,  C,  M,  N,  LISTC,  LTRAN) 
L0DC0L,  L0DR0W 

To  load  selected  rows  or  columns  from  one  matrix 
to  another. 

A list  of  codes  (LISTA  for  matrix  A and  LISTC 
for  matrix  C)  is  associated  with  either  column 
entries,  row  entries  or  both.  The  two  matrix 
codes  are  compared  and  rows  or  columns  having 
common  codes  are  loaded  from  A to  C. 

L0DC0L  uses  LISTC  to  define  the  columns  of  C. 
Letting  the  index  J run  from  1 to  N,  for  each 
value  of  J,  LISTA  is  searched  for  an  element 
JJ  such  that  LISTC (J)  = LISTA (JJ) , If  no 
equality  is  found,  no  operation  is  performed 
on  column  J of  matrix  C,  If  an  equality  is 
found,  the  elements  of  row  JJ  in  matrix  A 
are  copied  into  row  J of  C» 

L0DR0W  functions  the  same  way  for  the  rows  of 
C as  L0DC0L  does  for  columns,  LISTC  and  LISTA 
are  then  assumed  to  define  the  rows  of  C and 
A,  respectively. 

L0ADRC  loads  rows  and  columns  simultaneously 
for  square  matrices  where  a single  list  can 
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L0ADRC-2 

denote  ordering  for  both  rows  and  columns,  such 
as  covariance  and  transition  matrices.  For  the 
simultaneous  loading,  an  intermediate  transfor- 
mation array  LTRAN  is  used.  LTRAN(I)  is  zero 
if  the  1th  parameter  of  LISTC  does  not  appear 
in  LISTA,  or  is  equal  to  II  if  LISTA(II)  - 
LISTC  (I).  Individual  elements  are  transferred 
from  A to  C by 

C(I,J)  = A (LTRAN (I) ),  LTRAN (J)) 

if  LTRAN(I)  > 0 and  LTRAN (J)  > 0,  otherwise 
element  C(I,J)  is  not  changed  from  input  value. 
Remarks : The  argument  LTRAN  is  working  storage  and  is 

used  only  when  L0ADRC  is  called.  It  must  have 
a length  at  least  as  great  as  LISTC.  The 


inputs 

NA  and  N are 

ignored  for  L0ADRC,  A is 

assumed 

to  be  MAxMA 

and  C to  be  MxM. 

Input/Output : 

Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

A 

I 

A 

Input  matrix. 

MA 

I 

A 

m 

Number  of  rows  in  A. 

NA 

I 

A 

Number  of  columns  in  A. 

LISTA 

I 

A 

Vector  list  of  code  numbers 
for  rows/columns  of  A. 

C 

0 

A 

Output  matrix. 
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Variable 


Input/ 

Output 


Argument/ 

Common 


Definition 


M 

N 

LISTC 

LTRAN 


A 

A 

A 


Number  of  rows  in  C« 

Number  of  columns  in  C. 

Vector  list  of  code  num- 
bers for  rows /columns  of 

C. 

Transformation  list  from 
A to  C in  L0ADRC  designed 
as  working  storage  with 
no  specific  output  func- 
tion. Must  have  length 
greater  than  or  equal  to 
that  of  LISTC. 


Local  Variables: 


.Variable 

Defini tion 

MIN 

L0DC0L  - minimum  of  (M,  MA) 
L0DR0W  ~ minimum  of  (N,  NA) 

Subroutines  Called: 

None 

When  copying  rows  or  columns  MIN  is 
the  row  or  column  length.  It  guar- 
antees that  the  length  of  rows  or 
columns  in  neither  A nor  C is 
exceeded. 

GaTIing  Subroutines: 

STMRDR, 

GUIDE,  C0VP,  PRED,  STMUSE,  RELC0V 

Gbramon  Blocks : 

None 

Logic  Flow: 

None 
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. 'j . 2 OA  Function  : L0CLST  flPARAM) 

Purpose . To  locate  the  position  of  a parameter  in  the 

i, 

augmented  state  vector. 

Input /Output : 


triable 


IPARAM 

NAUG 

LIST 

L0CLST 


Input/ 

Output 


Argument 

Common 


F* 


Definition 


Code  number  of  parameter 
to  be  located. 

Dimension  of  augmented 
state  vector. 

Vector  of  code  numbers  in 
augmented  state. 

Parameter  location,  if  in 
augmented  state. 


Local  Variables: 

None 

Subroutines  Called: 

None 

Calling  Subroutines: 

0BSERV 

Common  Blocks: 

DIMENS 

Logic  Flow: 

No 


< 


^LflCLST  ^ 


I 


Default 
L0CLST  = 0 


LIST  (I ) = IPARAM 

I 


Yes 


■■  — — 

L0CLST  = I 


> 


-J 


^Function  Value  Output 
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• c 


3.3.20B  Subroutine: 

MASSIG  (IFLAG, 

P,  PG,  DT) 

Purpose : 

To  compute  the 

estimated  and  cumulative 

spacecraft  mass 

variances.  • 

Method : 

See  Analytic  Manual,  Section  6.2  (Covariance 

Propagation) . 

Input/Output : 

- 

Variable 

Input/ 
Ou  tput 

Argument/ 

Common 

Definition 

DT 

I 

A 

Propagation  interval. 

ENGINE  (10) 

I 

C 

Exhaust  velocity. 

EPTAU 

I 

C 

Thrust  noise  correlation 
times . 

EPVAR 

I 

c 

Thrust  noise  variances. 

IAUGDC 

I 

c 

Vector  of  flags  for  dynamic 
parameters . 

IFLAG 

I 

A 

Flag  for  computational  con- 
trol, 

= 0,  do  not  average  accel- 
eration. 

* i,  initialize  SAVACC. 

81  2,  update  mags  variance, 

~ 3,  update  and  print  moss 
variance. 

NAUG 

I 

c 

Dimension  of  augmented 
state. 

NTPHAS 

I 

c 

Current  thrust  phase  number. 

P 

I 

A 

Knowlege  covariance. 

PG 

I 

A 

pontrol  covariance. 

SAVACC 

I/O 

C 

Previous  thrust  scqeieration 

SCMASS 

I 

c 

Current  S/C  mass, 

SCMVAR 

I/O 

c 

Current  mass  variance, 

THRACC 

I 

c 

Thrust  acceleration  vector, 

THRUST 

I 

c 

S/C  thrust  array. 
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Local  Variables: 

Variable 

FL0W 

INITA 

TAMAG 

Subroutines  Called; 
Calling  Subroutines : 
Common  Blocks: 

Logic  Flow: 


Definition 

S/C  mass  flow  rate. 

Initialization  flag 
= 0,  do  not  average  acceleration. 
= l,  use  average  acceleration. 

Thrust  acceleration  magnitude. 


C0PY,  I/CLST,  VECMAG 
G0DSEP,  SETEVN 

C0NST,  DIMENS,  L0GIC,  PR0PR,  TRAJ1 , TRA J2 , W0RK 
None . 
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> 


3.3.21  Program: 

MEAS 

Purpose : 

Executive 

control  for 

measurement  processing. 

Input/Output : 

Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

GAIN 

0 

C 

Location  in  blank  common  of 
gain  matrix. 

H 

0 

C 

Location  in  blank  common  of 
observation  matrix. 

IDATYP 

0 

C 

See  0BSERV , 3,3.26. 

IGA  IN 

I 

C 

Gain  matrix  flag. 

■ 1,  Kalman-Schmldt  (KS) 

= 2,  sequential  weighted 
least  squares  (WLS). 
= 3,  user-supplied, 

= 4,  read  from  GAIN  file 

ISTA3 

0 

C 

See  0BSERV,  3.3.26, 

NAUG 

I 

C 

Length  of  augmented  state  vec 

NR 

0 

C 

Length  of  measurement  vector. 

P 

I 

c 

Location  in  blank  common  of 
knowledge  covariance  after 
measurement . 

PRINT 

0 

c 

Logic  flag 

=T,  full  print  for  current 
measurement 

=F,  do  not  give  full  print 
for  current  measurement. 

PTEMP 

I 

c 

Location  in  blank  common  of 
knowledge  covariance  before 
measurement , 

PWLS 

I 

c 

Location  in  blank  common  of 
WLS  reference  cpyariarjce. 

SUMMARY 

I 

e 

Logical  flag 

"T,  summary  print  for  all 
measurements . 

=F , no  summary  print . 
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269-B 


MEAS-3 
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3.3.22  Subroutine;  MEASPR (TYPE) 

Purpose;  To  control  all  measurement  print 


Input/Output: 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

TYPE 

I 

A 

Print  type 

=6HBEF0RE,  before  measurement 
print 

=5HAFTER,  after  measurement 
print 

AUGLAB 

I 

C 

Array  of  augmented  parameter 
Hollerith  labels. 

AZMTH2 

I 

C 

S/C  azimuth  angle  from  station 
ISTA2. 

AZMUTH 

I 

c 

S/C  azimuth  angle  from  station 
ISTA1. 

CHEKPR(3) 

I 

c 

Print  covariance  before  and 
after  measurement  (if  TRUE). 

DELTIM 

I 

c 

If  >0,  print  transition  matrices 

ELEV 

I 

c 

S/C  elevation  angle  from  station 
ISTA1 

ELEV2 

I 

c 

S/C  elevation  angle  from  station 
ISTA2 

GAIN 

I 

c 

Location  in  blank  common  of 
gain  matrix. 

H 

I 

c 

Location  in  blank  common  of 
observation  matrix. 

IDATYP 

I 

c 

General  data  type  flag  (See 
0BSERV,  (Section  3.3.26). 

ISTA1 

I 

c ^ 

| 

ISTA2 

I 

c 

rSee  0BSERV,  Section  3.3,26, 

ISTA3 

I 

C 

• 

L0CLAB 

I 

c 

Array  locating  state  vector 
partitions  in  AUGLAB. 
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Input/  Argument/ 

Variable  Output  Common  Definition 

MESEVN  I C 


ME  SLAB  I C 

NAUG  I C 

NDIM  I C 

NR  I C 

NS0LVE  I C 

P I C 

PHI  I C 

PLAB  I C 

PL0CAL  I C 

PRINT  I C 

PTEMP  I C 

R I C 

I C 


Measurement  code  for  current 
data  type. 

Array  of  measurement  Hollerith 
labels. 

Length  of  augmented  state  vector. 

Array  of  lengths  of  individual 
state  vector  partitions. 

Length  of  current  measurement 
vector. 

Total  number  of  variables  and 
parameters  being  estimated  by 
filter . 

Location  in  blank  common  of 
knowledge  covariance  after 
measurement. 

Location  in  blank  common  of 
transition  matrix. 

Array  of  knowledge  covariance 
sub-block  Hollerith  labels. 

Location  in  blank  common  of 
covariance- sized  working 
storage. 

Print  control  flag 
=T,  full  print 
=F,  not  full  print 

Location  in  blank  common  of 
knowledge  covariance  before 
measurement. 

Before  measurement,  measure- 
ment white  noise  matrix; 
after  measurement,  measure- 
ment residual  matrix. 

* 

S/C  geocentric  equatorial 
declination. 


SCDEC 


Variable 

SCGL0N 

SCMASS 

SUMARY 

TCURR 

TPAST 

VECLAB 

Local  Variables: 

Variable 

AZ 

BLANK 

DEC 

EL 

FSIA 

FULPR 

H0LNUM 

L0N 

Subroutines  Called: 

Calling  Subroutines 
Common  Blocks: 
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Input/  Argument/ 

Output Common Definition 


I C S/C  geocentric  longitude 

I C S/C  mass 


I 


I 

I 

I 


C Print  control  flag 

summary  print 
=F,  no  summary  print 

C Current  trajectory  time 

C Previous  trajectory  time 

C Array  of  state  vector 

partition  Hollerith  labels. 


Definition 


’’Azimuth"  Hollerith  label 
Hollerith  "blank" 

"Declination"  Hollerith  label 
"Elevation"  Hollerith  label 
"From  Station"  Hollerith  label 
Flag  on  SUMARY  print  file 

If  full  print  is  made  for  current  data  type 
FULPR  = 5HPRINT;  otherwise  FULPR  = Hollerith 
blank. 

Array  of  Hollerith  numbers 
"Longitude"  Hollerith  label 

MPAK,  SQRT,  J0BTLE,  PRINTT,  STMPR,  C0RREL,  PRNEQ, 

C0PY,  C0PYT,  MAT0UT,  PRPART 

: MEAS 

W0RK, (BLANK) , DIMENS,  KEPC0N,  LABEL,  L0CATE,  L0GIC, 

MEAS I,  MEASR,  SCHEDI,  SCHEDR,  TRAJ1,  TRAJ2 


MEASPR-4 


MEASPR 


SUMMARY 4 .TRUE) 
(No  summary 
print) 


^/Write  S/C  ^ 
^tate  and 
solve- for  std. 
dev.  to  summary 
L file  (TAPE  8)  i 


#200 


RINT  4 • TRUE. 
(No  full 
print  ?) 


RETURN 


PRINTT 


traj  ec tory 


I Before  measurement,  print  know- 
ledge uncertainties,  observation 
fciatrix,  measurement  white  noise,  j 
/After  measurement,  print  measure/ 
pent  residual  and  going  matrices  / 
and  knowledge  uncertainties  / 


RETURN 
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3,3.23  Subroutine 
Purpose : 

Method : 

Input/Output : 

Variable 

IDATYP 


ISTA3 

NR 

R 

VARMES 

local  Variables : 
Subroutines  Called 


MN0ISE-1 


MN0ISE 

To  define  the  measurement  white  noise  matrix. 
Required  elements  from  the  measurement  variance 

array,  VARMES,  are  loaded  into  the  measurement 
noise  matrix,  R. 


Input/  Argument/ 

Output Common Definition 


I 


C 


I 


c 


I 


c 


Basic  data  type 

= 1,  doppler 
= 2,  range 

" 3,  azimuth-elevation 
= 4,  star-planet  angle 
= 5,  apparent  planet 
diameter , 

= 6,  right  ascension- 
declination. 

Data  sub-type  for  range 
and  doppler. 

= 0,  2-way 
- 1,  3-way 

“ 2,  simultaneous  2-way/ 
3-way 

= 3,  differenced  2-way/ 
3-way 

Dimension  of  measurement 
noise  matrix. 


0 


C 


Measurement  noise  matrix. 


C Array  of  measurement  white 

noise  variances. 

None 

None 


Calling  Subroutines: 


MEAS 
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Common  Blocks: 
Logic  Flow: 


MN0ISE-2 


MEASI,  MEASR 
None 


27.6 


3.3.24 
Purpose ; 


Remarks : 


MSCHED- 1 

Subroutine  : MSCHED 

To  set  up  measurement  and  propagation  event 
information  for  use  by  the  scheduling  routine 
SCHED  (Section  3.3.36). 

If  the  current  error  analysis  reads  gain  matrices 
from  the  gain  file  (generalized  covariance  run) 
all  scheduling  and  measurement  print  control 
information  will  also  be  read  from  the  gain 
file  and  any  scheduling  cards  in  input  will  be 
ignored.  MSCHED  automa  tically._wri tes  this  .. 
information  on  the  gain  file  if  gain  file 
creation  has  been  specified  in  namelist  0G0DSEP. 

Each  card  read  is  assumed  to  contain  four  vari- 
ables - START,  ST0P,  DELT,  MESC0D  (for  input 
format  see  G0DSEP  input,  Section  2.3).  If  the 
interval  (START,  ST0P)  is  not  completely  con- 
tained in  the  interval  (TCURR,  TFINAL),  the 
values  of  START  and/or  ST0P  will  be  adjusted 
so  that  only  those  events  within  the  (TCURR, 
TFINAL)  interval  will  be  scheduled.  Measure- 
ment events  are  denoted  by  MESC0D  equal  to 
the  number  of  the  data  type,  and  propagation 
events  by  MESC0D  equal  to  zero.  An  additional 
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option  is  also  available  to  schedule  measurements 
in  any  sub-interval  of  (TCURR,  TFINAL) • When 
any  input  card  contains  a value  for  DELT  less 
than  or  equal  to  zero,  all  succeeding  event  cards 
are  scheduled  in  the  (START,  ST0P)  interval 


defined  by, that  card  until  a new  card  with  DELT 


less 

than  or  equal  to 

zero  is  encountered. 

Input/Output: 

Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

igain 

I 

C 

Integer  flag  controlling 
filtering  algorithm 

IGAIN.  = 4 means  read  gain 

from  gain  file. 

GAINCR  I C Logical  flag  controlling 

gain  file  creation. 

= .TRUE.,  create  gain  file. 
= .FALSE.,  do  not  create 
gain  file 


MPFREQ 

I/O 

C 

Array  of  measurement  print 
control  flags. 

MC0DE 

0 

C 

Array  of  measurement  and 
propagation  event  codes. 

NSCHED 

I/O 

C 

Input  as  number  of  schedul- 
ing cards  to  be  read. 

Output  as  number  of  entries 
in  SCHEDM  MC0DE  arrays  to  be 
operated  on  for  scheduling 
current  run. 

SCHEDM 

0 

C 

Array  defining  scheduling 
of  events  found  in  M.C0DE, 
Each  MC0DE  (I)  will  be 
scheduled  starting  at 
SCHEDM  (1,  I),  stopping  at 
SCHEDM  (2,  I),  in  increments 
of  SCHEDM  (3,  I). 
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Input/ 

Variable  Output 

Argument/ 

Common  Definition 

TCURR  I 

C Trajectory  start  time, 

lower  bound  for  measurement 
scheduling. 

TFINAL  I 

C Trajectory  stop  time,  upper 

bound  for  measurement  sched- 
uling. 

Local  Variables: 

Variable 

Definition 

BEGMES 

Beginning  of  allowable  event  scheduling 
interval,  initially  set  to  TCURN. 

DELT 

Scheduled  time  interval  between  measure- 
ments . 

ENDMES 

End  of  allowable  event  scheduling  inter- 
val, initially  set  to  TFINAL. 

IBIAS 

Running  counter  of  number  of  schedule 
cards  read  but  not  loaded  into  SCHEDM 
and  MC0DE  arrays. 

MESC0D 

Measurement  code  read  from  input  card. 

START 

Beginning  of  scheduling  interval  for 
measurement  type  MESO0D. 

ST0P 

End  of  scheduling  interval  for  measure- 
ment type  MESC0D, 

Subroutines  Called: 

None 

Calling  Subroutines: 

0UTPTG 

Common  Blocks: 

C0NST, 

SCHEDI,  SCHEDR,  MEAS1,  L0GIC,  W0RK 

i> 
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o- 


False 
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3.3.25  Subroutine ; 

Purpose: 

Remarks: 


Input/Output: 

Local  Variables: 
Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 

Logic  Flow: 
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NMLIST 

Read  $G0DSEP  namelist 

All  knowledge  and  control  covariance  matrix  partitions 
are  provided  as  arguments  to  NMLIST  in  order  to 
minimize  the  number  of  modifications  necessary  in 
the  event  maximum  dimensions  of  any  sub-block  are 
changed.  Dimensions  of  these  arrays  in  NMLIST  must 
correspond  to  those  specified  for  MAXDIM  array  in 
subroutine  DEFALT  (Sec.  3.3.8) 

If  GAIN  file  is  being  created,  NMLIST  writes  all 
variables  in  namelist  $G0DSEP  to  GAIN  file  (TAPE  4) 
in  binary  format.  Similarly,  if  GAIN  file  is  being 
read,  NMLIST  reads  default  values  for  namelist 
$G0DSEP  in  binary  format  from  GAIN  file  (TAPE  4) 
and  then  reads  normal  namelist  $G0DSEP  from  input 
to  modify  defaulted  values  as  desired. 

See  G0DSEP  Input,  Volume  II,  User's  Manual  Sec.  2.3 
None 

J0BTLE,  B0MB 
INPUTG 

DATAGI,  DATAGR,  DIMENS,  GUIDE,  LABEL,  L0GIC,  MEASI, 
MEASR,  PR0PI,  PR0PR,  SCHEDI,  SCHEDR,  TRAJ2 

None 
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3.3.26  Subroutine:  0BSERV  (HMAT) 

Purpose : To  compute  the  observation  matrix  for  a given 

data  type  at  a measurement. 

Method : 0BSERV  is  actually  a master  routine  controlling 

the  calls  to  subordinate  routines  where  the 
observation  matrix  (HMAT)  is  calculated  for 
range,  doppler,  azimuth-elevation,  star-planet 
angle,  apparent  planet  diameter,  and  horizon 
sensor  measurements.  Depending  on  the  measure- 
ment type  code  (IDATYP),  0BSERV  calls  (1)  OB S RAD 
to  calculate  range  and  doppler  observation 
partials,  (2)  0BSAEA  for  azimuth-elevation 

partials,  (3)  0BSSPA  for  star-planet  angle 

(i.e.,  star-Earth  horizon  angle)  observation 
partials,  (4)  0BSAPD  for  apparent  planet 
diameter  observation  partials,  and  (5)  0BHZS 
for  horizon  sensor  partials.  The  details  of 
the  mathematical  models  are  given  in  the 
Analytic  Manual,  Section  6.3. 

Remarks : Rather  than  explicitly  documenting  0BSRAD, 

0BSAEA,  0BSAPD,  and  0BSHZS,  the  key  functional 
description  and  calculations  for  each  of  these 
routines  will  be  discussed  here  in  0BSERV. 

Input/Output: 

Input/  Argument/ 

Variable Output  Common Definition 

HMAT  0 A Observation  matrix 

AZMTH2  0 C Azimuth  angle  from  station 

ISTA2 
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Input/  Argument/ 
Variable  Output Common  _ 


Description 


AZMUTH  0 

ECEQ  I 

ELEV  0 

ELEV2  0 

GHZER0  I 

IAUGST  I 

IBAZEL  I 

IBDIAM  I 

IB  STAR  I 

IB2WAY  I 

IB3WAY  I 


IBHC02 


C Azimuth  angle  from  station 

ISTA1 

C Rotation  matrix  from  equatorial 

to  ecliptic  coordinates. 

C Elevation  angle  from  station 

ISTA1 

C Elevation  angle  from  station 

ISTA2 

C Greenwich  hour  angle  at  launch 

C Location  in  IAUG  array  of 

station  location  flags. 

C Location  in  IAUG  array  of 

azimuth- elevation  angle  meas- 
urement  bias  flags. 

C Location  in  IAUG  array  of 

apparent  planet  diameter 
measurement  bias  flag. 

C Location  in  IAUG  array  of  star- 

planet  angle  measurement  bias 
flags. 

C Location  in  IAUG  array  of  2-way 

range  and  range- rate  measure- 
ment bias  flags. 

C Location  in  IAUG  array  of  3-way 

range  and  range- rate  measure- 
ment bias  flags. 

C Location  in  IAUG  array  of 

the  CO2  altitude  bias  flag 
for  the  horizon  sensor 
measurement . 

C Location  in  IAUG  array  of 

the  horizon  sensor  angle 
biase  flags. 


IBHZS 


I 
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Input/  Argument/ 

Variable  Output  Common — , 

IDATYP  0 c 


ISTA1  0 

ISTA2  0 

ISTA3  0 

LIST  I 

MAXSTA  I 

MESEVN  I 


Definition  

General  data  type  decoded 
from  MESEVN. 

=1,  range- rate  measurement 
-2 , range  measurement 
=3,  azimuth-elevation  anble 
measurement 

=4,  on-board  optics,  star- 
planet  angle 

=5,  on-board  optics,  apparent 
planet  diameter 

=7,  horizon  sensor  observations. 

For  IDATYP  = 1,2,3  ISTA1  = 
station  number  of  first  station. 

For  IDATYP=4  Number  of  first 
star.  For  IDATYP=5  ignored. 

For  IDATYP=1,2,3  ISTA2  = station 
number  of  second  station  (if 
data  type  requires) 

For  IDATYP =4  number  of  second  star. 
For  IDATYP=5  ignored. 

Ignored  if  IBATYP=3,4,5 
If  IDATYP=1 ,2: 

=0,  2-way  data  from  station  ISTA1 
=1,  3-way  data  from  stations 
ISTA1  and  ISTA2 

=2,  simultaneous  2-way/3-way  data 
from  station  ISTA1  and  ISTA2 
=3,  differenced  2-way/3-way  data 
from  stations  ISTA1  and  ISTA2. 

List  of  augmented  parameter 
numbers . 

Maximum  station  number  for  which 
station  location  errors  and  2-way 
or  3-way  biases  are  allowed. 

Measurement  code  of  current 
data  type. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

NAUG 

I 

C 

Length  of  augmented  state 
vector. 

NB 

I 

C 

Array  of  bodies  used  in  traj- 
ectory integration. 

NB0D 

I 

C 

Number  of  bodies  used  in 
trajectory  integration. 

NR 

0 

c 

Length  of  current  measurement 
' vector. 

0MEGAG 

I 

c 

Earth  sidereal  rotation  rate. 

FRADIS 

I 

c 

Array  of  planetary  radii 

RAD 

I 

c 

Conversion  constant,  degrees/ 
radian 

RANGE 

0 

c 

Range  from  station  ISLAl  to 
S/C  or  range  from  S/C  to 
Earth. 

RANGE 2 

0 

c 

Range  from  station  ISTA2  to  S/C 

SCDEC 

0 

c 

S/C  geocentric  equatorial 
declination. 

SCGL0N 

0 

c 

S/C  geocentric  longitude. 

STAL0C 

I 

c 

Array  of  station  location 
geographic  coordinates. 

STARDC 

I 

c 

Array  of  star  direction  cosines. 

STPANG 

0 

c 

Array  of  star  planet  angles. 

TCURR 

I 

c 

Current  trajectory  time. 

TM 

I 

c 

Conversion  constant,  seconds /day. 

UP 

I 

c 

Position  array  of  bodies  used 
in  trajectory  integration. 
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0BSERV-4 


Variable 

UREL 

VP 

VREL 

Local  Variables: 

Variable 

CACB 

CALPHA 

CBETTA 

CGAMMA 

DABDX 

DABDXS 

DELR 

DELRH0 

DIFF23 

D0PLER 

GECSTA 

GECST2 

GECV 


Input/  Argument/ 

Output  Common  Definition 


I 


I 

I. 


C Relative  position  array  of 

S/C  to  bodies  for  trajectory 
integration. 

C Velocity  array  of  bodies  used 

in  trajectory  integration. 

C Relative  velocity  array  of  S/C 

to  bodies  for  trajectory 
integration. 


For  all  variables  and  equations,  see  Volume  1, 


Analytical  Manual,  Section  6. 


Definition 


COS  (azimuth)  x COS  (elevation) 

COS  (azimuth) 

COS  (elevation) 

COS  (star- planet  angle) 
c)  •'>  )/*'  & 

Vector  position  difference  between 
stations  ISTA1  and  ISTA2. 

a? 

Logical  flag 

=T,  differenced  2-way/3-way  data 
=F,  not  differenced  2-way/3-way  data 

Logical  flag 

=T,  range- rate  measurement 
-F,  not  range- rate  measurement 

Geocentric  ecliptic  coordinates  of  ISTA1 

Geocentric  ecliptic  coordinates  of  ISTA2 

S/C  geocentric  ecliptic  coordinates 

Geocentric  equatorial  coordinates  of  ISTA1 


GEQSTA 
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0BSERV-5 


Variable 

GEQV 

HECE 

HECV 

HV 

HV2 

HX 

HX2 

ISXA 

NTEMP 


PECCYL 

PEQCYL 

RHO 

RH0D0T 


Definition 

S/C  Geocentric  equatorial  coordinates 

Heliocentric  ecliptic  coordinates 
of  Earth. 

S/C  Heliocentric  ecliptic  coordinates. 

Observation  partials  for  ISTA1  station 
location  parameters. 

Observation  partials  for  ISTA2  station 
location  parameters. 

2-way  observation  partials  for  S/C 
state  from  ISTA1. 

2-way  observation  partials  for  S/C 
state  from  ISTA2. 

Number  of  station  or  star  for  which 
partials  are  currently  being  computed. 

When  multi-station  data  is  used,  infor- 
mation for  ISTA2  is  computed  first  in 
locations  HX , HV , RH0HAT , and  GECSTA. 
NTEMP  is  number  of  words  which  must  be 
copied  from  HX,  etc.  into  HX2,  etc. 

Partial  of  instantaneous  station 
geocentric  ecliptic  to  geographic 
coordinates . 

Partial  of  instantaneous  station 
geocentric  equatorial  to  geographic 
coordinates. 

Range  vector  from  station  ISTA  to  S/C 
or  from  S/C  to  the  Earth. 

Relative  velocity  vector  from  station 
ISTA  to  S/C. 


Variable 

RH0HAT 

RH0HT2 

SALPHA 

SBETA 

S GAMMA 

SGNC0S 

SIML23 

SINE 

TATB 

THRWAY 

TW0WAY 

WHAT 

XSHAT 

Subroutines  Called: 

Calling  Subroutines: 
Common  Blocks: 
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0BSERV-6 


Definition 


Unit  vector  in  RH0  direction  from  ISTA1 
Unit  vector  in  RH0  direction  from  ISTA2 

sin  a 

SIN  0 
SIN  y 

Signum  (COS a) 

Logical  flag 

=T,  simultaneous  2-way/3-way  data 
=F,  not  simultaneous  2-way/3-way  data 

Sin  (apparent  planet  diameter  angle) 

tan  Cf  tan  0 

Logical  flag 

=T , 3-way  data  only 

=F,  not  3-way  data  only 

Logical  flag 

=T,  2-way  data  only 

=F,  not  2-way  data  only 

w 

A 

X 

s 

ZER0M,  CYEQEC,  VECMAG,  UNITV,  UD0TV,  AS IN,  L0CLST, 
PARSTA,  MMAB,  NEGMAT,  MMATB,  ATAN2,  C0PY,  ADD, 
MUNPAK,  SUB,  UXV,  SQRT,  MMABT,  AC0S,  L0DC0L 

MEAS 

W0RK,  (BLANK),  C0NST,  DIMENS,  EPHEM, 

MEAS I,  MEASR,  SCHEDI,  SCHEDR,  TRAJ1,  TRAJ2 
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0BSERV-7 


0BSERV-8 


Are  station  location 
coordinates  for  ISTA 
augmented  to  S/C  states? 


PARSTA 

Compute  partials 
of  station  state 
to  cylindrical 
coordinates 


HV  = d ylds. 
eqn.  6-2.3  or 
eqn.  6-2.5 


#1600 


PASS  2 


•TRUE. 


jj  « FALSE « 

Compute  S/C 
geocentric  equa- 
torial declination 
and  longitude 


TW0WAY 


•TRUE' 


-FALSE. 


PASS  2 = *TRUE« 

Copy  all  information 
computed  above  for  second 
station  to  HX2,  etc. 

Set  ISTA, to  first 
station  number 


0BSERV-9 


#1700 


3, I simult. 

I 2~wav/ 3-wa 


C0  T0,  IH0LD 

--2,1  (3-way  data’ 


= 1,  (2- way  data) 


HX-  JZL-+  ay?  ■ ■ 
3(x,x). 


#1900 


HX2  = ayl 

M 

+ *y2 

a(x,x) 

a(2s,x) 

{ Load  iX2  into  second  1 

1 row  of 

£iAT . f 

If  station  location  errors 
Cor  i’irst  station,  load  HV 

into  first 

row  tii'-'iAT 

#2(:oo 


(X -differenced  sensitivities 
according  to  eqn.  6-2.8 


rtjisPAt: 

Load  ::X  into  first  row 

U.MAT 

Load  station  location 
errors  (HV, HV2)  as 
necessary 


Load  bias  sensitivities 
if  station  numbers  in 
correct  range  and 
biases  augmented 
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0BSERV-1O 


« 


293 


Yes 


Load  ephemeris  sensi- 
tivities, transforming 
if  Keplerian 
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0UTPTG-1 


3.3.27  Subroutine;  0UTPTG 

Purpose : Print  out  for  user  information  of  options 

selected  and  initial  values.  Conversion  of 
input  to  internal  units  as  necessary. 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

BIG 

I 

C 

Large  constant,  1.E20. 

C0NRD 

I 

C 

Logical  flag. 

= T,  control  uncertainties 
read  in. 

- F,  control  uncertainties 
not  read  in. 

C0RL0N 

I 

C 

Station  longitude  correlation 
coefficient . 

DCDQ 

0 

C 

Transformation  matrix, 
ecliptic  to  equat. 

DO  PC  NT 

I 

C 

Average  number  of  range -rate 
measurements  taken  per  day 
during  tracking  arc. 

DYN0IS 

I 

C 

Logical  flag. 

= T,  compute  effective  pro- 
cess noise. 

= F,  do  not  compute  effective 
process  noise. 

EPSIG 

I 

c 

Array  of  process  noise  stand- 
ard deviations. 

EPTAU 

I 

c 

Array  of  process  noise  cor- 
relation times. 

EPVAR 

I 

c 

Array  of  process  noise  vari- 
ances . 

gaincr 

I 

c 

Logical  flag. 

= T,  create  GAIN  file. 

= F,  do  not  create  GAIN  file. 
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0UTPTG-2 


Input/  Argument/ 


Variable 

Output 

Common 

Definition 

GENCOV 

I 

C 

Logical  flag. 

• 

= T,  generalized  covariance 
analysis  on  current 
run. 

= F,  no  generalized  covari- 
ance analysis  on  current 
run. 

GTAU1 

0 

c 

Array  of  negative  inverse 
primary  process  noise  cor- 
relation times  for  TRAJ 
(Section  ‘S  ) Opera- 

tive only  if  PD0T  = .TRUE. 

GTAU2 

0 

c 

Array  of  negative  inverse 
secondary  process  noise  cor- 
relation times  for  TRAJ 
(Section  . i>"  ) Opera- 

tive only  if  PD0T  =■  .TRUE. 

IAUGST 

I 

c 

Location  in  IAUG  array  of 
station  location  parameters. 

IGAIN 

I 

c 

Gain  matrix  algorithm  flag. 

ISTMF 

I 

c 

STM  file  usage  flag. 

LIST 

I 

c 

Array  of  augmented  parameter 
numbers . 

LPD0T 

0 

c 

Array  of  dynamic  parameters 
to  TRAJ  (Section  * * } 
Operative  only  if  PD0T  - 
.TRUE. 

MC0UNT 

0 

c 

Measurement  counter. 

MPFREQ 

I/O 

c 

Measurement  print  frequency 
control  array. 

NAUG 

I 

c 

Length  of  augmented  state 
vector . 

NCNTE 

0 

c 

Eigenvector  event  counter. 
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0UTPTG-3 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

NENTG 

. i,  r i - — 

0 

C 

Guidance  event  counter. 

NCNTP  ' 

0 

C 

Prediction  event  counter. 

NGNTT 

0 

c 

Thrust  event  counter. 

NEIGEN 

1/0 

c 

Total  number  of  eigenvector 
events  to  be  scheduled. 

NGUID 

1/0 

c 

Total  number  of  guidance 
events  to  be  scheduled. 

NPRED 

1/0 

c 

Total  number  of  prediction 
events  to  be  scheduled. 

NTHRST 

1/0 

c 

Total  number  of  thrust 
events  to  be  scheduled. 

NST 

I 

c 

Number  of  tracking  stations 
defined. 

P 

I 

c 

Location  in  blank  common  of 
knowledge  covariance. 

PDOT 

I 

c 

Logical  flag. 

'•  ! 

- T,  covariance  propagation 
by  integration  of  vari- 
ational equations. 

= F,  covariance  propagation 
by  state  transition 
matrices. 

PG 

1 

c 

Location  in  blank  common  of 
control  covariance. 

PGLAB 

I 

c 

Array  of  control  covariance 
sub-block  Hollerith  labels. 

PUB 

I 

c 

Array  of  knowledge  covariance 
sub-block  to  Hollerith  labels 

PRNC0V 

I 

c 

Logical  array  controlling 
covariance  sub-blocks  printed 

PR0PG 

0 

c 

Logical  flag. 
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0UTPTG-4 


Input/  Argument/ 
Variable Output  Common 


QN0ISE 


RAD 


SCHFTL 


SIGL0N 


SIGMES 


Definition 

= T,  propagate  control 

covariance  simultane- 
ously with  knowledge. 

= F,  do  not  propagate  con- 
trol covariance  simul- 
taneously with  knowledge. 

Array  of  process  noise  var- 
iances provided  to  TRAJ 
(Section  S.  s:  ) when 
PD0T  = .TRUE. 

Conversion  constant,  de- 
grees / radian . 

Logical  flag, 

- T,  mesh  failure  on  reading 
STM  file  is  fatal. 

= F,  mesh  failure  on  reading 
STM  file  is  not  fatal. 

Standard  deviation  in  sta- 
tion longitude. 

Array  of  measurement  white 
noise  standard  deviations. 


SIGRS 


I 


C 


Standard  deviation  in  sta- 
tion spin  radius. 


SIGZ 


I C 


Standard  deviation  in  sta- 
tion z-height. 


STAL0C  I C 

TCURR  I C 

TDUR  X c 


TEIGEN  I C 


Array  of  tracking  station 
cylindrical  coordinates. 

Current  (and  initial)  tra- 
jectory time. 

Trajectory  final  time 
(seconds)  for  TRAJ  (Section 

S.S-) 

Array  of  eigenvector  event 
times. 
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0UTPTG-5 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

TFINAL 

I 

C 

Error  analysis  final  time. 

TG 

I 

C 

Epoch  for  input  control 
uncertainties  if  C0NRD  - 
.TRUE. 

TGUID 

I 

C 

Array  of  guidance  event 
times . 

TM 

I 

C 

Conversion  constant, 
seconds/day . 

T0LBAK 

I 

C 

Backward  tolerance  on  STM 
file  mesh. 

T0LF0R 

I 

c 

Forward  tolerance  on  STM 
file.  mesh. 

TPRED 

I 

c 

Array  of  prediction  event 
times . 

TTHRST 

I 

c 

Array  of  thrust  event  times 

VARMES 

0 

c 

Array  of  measurement  white 
noise  variances. 

Local  Variables: 

None 

Subroutines  Called: 

MSCHED 

, ESCHED,  SCHED 

, B0MB,  ATAN,  ZER0M,  C0RREL, 

PRNEQ', 

SDVAR,  C0PY 

Calling  Subroutines 

_:  DATAG 

Common  Blocks: 

W0RK, 

L0CATE 

SCHEDR 

(BLANK),  C0NST, 
, L0GIC,  MEASI, 
, TIME,  TRAJ1, 

DATGI , DATGR,  DIMENS,  LABEL, 
MEASR,  PR0PI,  PR0PR,  SCHEDI, 
TRAJ2 

Page  301  has  been  deleted. 


302-A 


PARSTA-1 


3.3.29  Subroutine:  PARSTA  (GEQSTA,  STAL0C,  ECEQ,  PECCYL,  SPHERE) 


Purpose: 


Method: 


To  compute  the  partials  of  station  instantaneous 
geocentric  ecliptic  cartesian  state  with  respect 
to  equatorial  geographic  coordinates,  either 
spherical  or  cylindrical. 

Analytical  expressions  for  these  partial  derivatives 
have  been  evaluated  in  the  Analytical  Manual,  Section 
G,  and  are  coded  here  for  numberical  calculations. 


Input/Output: 

Variable 


Input/  Argument/ 

Output Common  Definition 


GEQSTA  I 


STAL0C  I 


A Instantaneous  geocentric 

equatorial  cartesian  state 
vector  of  the  station. 

A Geographic  coordinates  of 

the  station.  Radius, 
latitude  and  longitude  for 
spherical  coordinates. 

Spin  radius,  longitude,  and 
Z-height  for  cylindrical 
conditions . 


ECEQ 


I 


A Rotation  matrix  from  equator- 

ial to  ecliptic  cartesian  frame. 


PECCYL  0 


SPHERE 


I 


A Partial  derivatives  of  instan- 

taneous ecliptic  state  of  the 
station  with  respect  to  the 
geographic  coordinates  of  the 
station. 

A Logical  flag  to  determine 

whether  the  input/output  is 
in  terms  of  spherical 
( SPHERE-. TRUE .)  or  cylindrical 
( SP HERE =. FALSE .)  station 
coordinate  variables. 


302-B 


PARSTA-2 


Local  Variables: 

Variable 

C0SEPS , SINEPS 
C0SPHI,  SINPHI 

CP0MEG,  SP0MEG 


Definition 

COS  and  SIN  of  Earth  obliquity  to  ecliptic. 

COS  and  SIN  of  instantaneous  station 
equatorial  longitude. 

COS  and  SIN  of  Earth  inertial  rotation  rate. 


Subroutines  Called:  None 

Calling  Subroutines:  OBSRAD 

Common  Blocks:  None 


Logic  Plow:  None 
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3.3.30  Logical 
Purpose : 

Method : 


Remarks : 


Input/Output: 

Variable 

ITYPE 


PCNTRL-1 


Function:  PCNTRL  (ITYPE,  ISUB) 

To  control  measurement  print. 

Each  general  data  type  (e.g.,  2**way  range, 
simultaneous  2-way/3-way  doppler,  azimuth- 
elevation  angles)  is  assigned  a print  fre- 
quency (MPFREQ)  and  a counter  (MPCNTR) . 

A test  is  made  on  the  counter  for  the 
input  data  type  defined  by  ITYPE,  ISUB. 

If  the  MPCNTR,  modulo  its  MPFREQ,  is  zero, 
the  measurement  is  printed. 

Two  additional  features  are  provided.  The 
first  processed  measurement  of  any  data 
type  whose  corresponding  MPFREQ  element 
is  non-zero  is  printed.  Also,  the  final 
measurement,  independent  of  the  data  type, 
is  printed. 


Input/  Argument/ 

Output Common Definition 

I I A Basic  data  type,  corresponds 

to  IDATYP  in  common  block 
MEASI. 


= 1,  doppler 
= 2,  range 

= 3,  azimuth-elevation 
angle 

= 4,  star-planet  angle 
- 5,  apparent  planet  diam- 
eter. 


Sub-data  type  for  doppler 
and  range,  ignored  if 
ITYPE  > 2. 


ISUB 


I 


A 
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PCNTRL-2 


Input/ 

Variable Output 


PCNTRL  0 


MPCNTR  I/O 

MPFREQ  I 

TFINA.L  I 

TMNEXT  ‘ I 


Argument/ 

Common Definition 


= 0,  2-way 
= 1,  3-way 

= 2,  simultaneous  2 -way/ 

3 -way 

= 3,  differenced  2-way / 

3 -way 

p*  Logical  print  control  vari- 

able . 

= .TRUE.,  if  measurement  to 
be  printed 

= .FALSE.,  if  measurement 
not  to  be  printed. 

C Array  of  data  type  count- 

ers . 

C Array  of  data  type  print 

frequencies • 

C Trajectory  final  time. 

C Time  of  next  scheduled 

mea  surement . 


Local  Variables: 
Variable 
IC0DE 


Definition 

Integer  subscript  locating  data  type 
in  MPFREQ  and  MPCNTR. 


Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 


None 

MEAS 

SCHEDR,  SCHEDI 


*Function  Value  Output 
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PCNTRL-3 
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3.3.3IA  Subroutine 
Purpose : 

Input/Output : 

Variable 

PBL0CK 

IF0RM 

PAUG 

L0CBLK 

MAXDIM 

NDIM 

Local  Variables: 

Variable 

IBL0CK 


PPAK-1 


PPAK  (PBL0CK,  IF0RM,  PAUG) 

To  load  input  covariances  from  either  packed 
or  unpacked  input  form  to  block  form  (See 
AUGCNV,  Section  3.3.1). 


Input/  Argument/ 

Output Common Definition 


I A 

I A 


0 A 

1 C 


I C 


I c 


Array  containing  all  input 
covariance  information. 

Flag  indicating  input  form 
of  individual  sub-blocks 
within  PBL0CK. 

= 1,  sub-blocks  are  packed. 

- -1,  sub-blocks  are  not 
packed. 

Output  covariance  in  "block" 
form. 

Array  locating  covariance 
sub-blocks  in  "block"  form 
(PAUG) . 

Array  of  dimensions  of  covar- 
iance sub-blocks  in  PBL0CK. 
MAXDIM  remains  at  input 
values  if  input  sub-blocks 
are  not  packed  and  MAXDIM 
is  adjusted  to  NDIM  if  sub- 
blocks are  packed. 

Array  of  assumed  sub-block 
dimensions  on  output. 


Definition 


Running  counter  locating  current  covar- 
iance sub-block  within  PBL0CK. 


307-A 


Variable 

MAXSAV 

Subroutines  Called: 
Calling  Subroutine: 
Common  Blocks: 

Logic  Flow: 


PPAK-2 


Definition 


Array  saving  input  values  of  MAXDIM. 


MPAK,  SYML0,  AUGCNV 
INPUTG 

W0RK,  DATAGI,  DIMENS 
None 
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3.3.31  B Subroutine:  PRNEQ  (PIN,  IGIN) 


Purpose : 

To 

transform  the 

6x6  state  error  covariance 

from  ecliptic  to 

equatorial  coordinates,  and 

to 

print  the  equatorial  covariance. 

Input /Output : 

Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

AUGLAB 

I 

C 

Vector  of  printout  labels. 

DCDQ 

I 

C 

Transformation  matrix  from 
ecliptic  to  equatorial 
coordinates . 

IGIN 

I 

A 

Logical  flag  to  print 
eigenvectors  and  eigen- 
values. 

NAUG 

I 

C 

Dimension  of  PIN. 

PIN 

I 

A 

Ecliptic  covariance. 

Subroutines  Called:  EIGPRN,  MMABAT,  MPAK,  PRSDEV,  VARSD 

Calling  Subroutines:  GUIDE,  MEASPR,  SETEVN 

Coinmon  Blocks:  C0NST,  DIMENS,  LABEL,  PR0PR,  W0RK 


None . 
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PR0P-1 


3o3.32  Subroutine : PR0P  (PIN,  PHIMAT,  NP,  WLSREF,  P0UT) 


Purpose : 


Method : 


Remarks : 


Input/Output: 

Variable 


To  propagate  an  augmented  covariance  matrix 
between  time  points. 

State  transition  matrix  with  effective  process 
noise  model. 

PIN  and  P0UT  may  not  share  the  same  location. 
This  routine  also  propagates  the  reference 
covariance  for  sequential  weighted  least 
squares  (WLS)  filtering. 

Input/  Argument/ 

Output  Common Definition 


PIN 

I 

A 

Input  covariance  to  be 
propagated. 

PHIMAT 

I 

A 

Transition  matrix  over 
time  interval. 

NP 

I 

A 

Demension  of  input  transi- 
tion matrices. 

WLSREF 

I 

A 

Logical  flag  controlling 
propagation  of  WLS  refer- 
ence covariance. 

= .TRUE,  and  IGAIN  - 2, 

WLS  reference  propagated 
otherwise  not. 

P0UT 

0 

A 

Output  covariance. 

DYN0IS 

I 

C 

Logical  flag  controlling 
addition  of  effective 
process  noise. 

= .TRUE.,  add  Q 
= .FALSE.,  do  not  add  Q 


309 


PR0P-2 


Input/ 

Argument/ 

Variable 

Output 

Common 

Definition 


IGAIN 


NS0LVE 


PWLS 


Integer  flag  controlling 
filtering  algorithm 

= 2,  use  WLS 

sf  2,  do  not  use  WLS, 

Total  number  of  variables 
solved-for  (=6  + number  of 
solve-for  parameters) , 

Location  in  blank  common 
of  WLS  reference  covariance. 


Q 


I C 


Effective  dynamic  noise 
matrix. 


Local  Variables:  None 

Subroutines  Called:  ZER0M,  MUNPAK,  MPAK,  SYMTRZ,  AMABAT 

Calling  Subroutines:  C0VP,  PRED,  GUIDE 

Common  Blocks:  (BLANK),  DIMENS,  L0CATE,  L0GIC,  MEASI,  PR0PR 
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3.3,33  Subroutine : 
Entry  Points  : 

Purpose : 


Remarks : 


PRPART- 1 


PRPART  (A,  MAXR0W,  NR0W,  NC0L,  LABEL) 

PRC0RR,  PUNC0R 

To  print  or  punch  the  transpose  of  any  sub- 
block or  partition  of  a matrix  with  column 
labeLs  for  printing  and  a single  matrix  name 
for  punching. 

This  routine  was  designed  primarily  for  print- 
ing partitions  of  covariance  and  transition 
matrices  and  punching  covariance  partitions. 
However,  it  has  general  applications  to  any 
matrix.  PRPART  and  PRC0RR  are  functionally 
equivalent  - the  difference  in  output  being 
E format  by  PRPART  for  general  matrices  and 
F format  by  PRC0RR  for  easy  reading  of  corre- 
lation coefficients,  PUNC0R  punches,  and  is 
valid  for  general  matrices.  The  calling 
sequence  requires  that  the  argument  A be  the 
first  word  of  the  partition  of  interest.  For 
example,  given  a 9 x 9 state  transition  matrix, 
PHI,  which  is  theoretically  partitioned  as 


PHI  ■ 


^6x6  66x3  1 


L °3x6  I3x3  J 


to  print  the  transpose  of  the  $6x6  partiti0n 


we  would  use 
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Input/Output ; 

Variable 

A 

MAXR0W 

NR0W 


PRPART-2 

CALL  PRPART  (PHI,  9,  6,  6i,  LABEL1) 
where  IABEL1  is  a 6-vector  of  Hollerith  labels 
for  the  c olumns  of  Similarly  to  print 

the  transpose  of  ^^x3>  we  woul^  uSe 

CALL  PRPART  (PHI  (1,  7),  9,  6,  3,  LABEL2) 
where  PHI  (1,  7)  represents  the  first  element 
of  the  0^  ^ partition,  and  LABEL2  as  a 3-vector 
of  Hollerith  labels  for  the  columns  of  If 

PHI  is  not  explicitly  dimensioned  9 x 9 in  the 
calling  routine,  this  last  call  could  also  have 
been 

CALL  PRPART  (PHI  (NPHI  * (7-1)  + 1), 

NPHI,  6,  3,  LABEL2) 

where  the  PHI  subscript  (NPHI  * (7-1)  + 1)  comes 
from  the  general  formula  for  locating  element 
(I,  J)  in  a matrix  dimensioned  (M,  N) : 

L0C  = M * (J-l)  + I. 


Input/ 

Output 

Argument/ 

Common 

Definition 

I 

A 

First  word  of  matrix  sub- 
block to  be  printed  or 
punched. 

I 

A 

• 

Number  of  rows  in  complete 
matrix  from  which  partition 
is  being  taken. 

I 

A 

Number  of  rows  in  partition 
to  be  printed/punched,  must 
be  less  than  or  equal  to 
MAXR0W. 
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PRPART-3 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

NC0L 

I 

A 

Number  of  columns  in  parti- 
tion to  be  printed/punched. 

LABEL 

I 

A 

For  PRPART  and  PRC0RR  an 
NC0L-vec tor  of  Hollerith 
labels  for  printing. 

For  PUNC0R,  a one-word 
Hollerith  label  for  the 
matrix  to  be  punched. 

Local  Variables:  None 

Subroutines  Called:  None 

Calling  Subroutines:  C0RREL,  STMPR,  MEASPR,  GUIDE 

Common  Blocks;  None 

Logic  Flow:  None 
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3.3,34  Subroutine 
Entry  Foints: 
Purpose : 

Remarks : 


Input/Output : 

Variable 

SDC0R 

MAXR0W 

NR0W 

LABEL 


Local  Variables: 


PRSDEV- 1 


: PRSDEV  (SDC0R,  MAXR0W,  NR0W,  LABEL) 

PUNSD 

To  print  (PRSDEV)  or  punch  (PUNSD)  a matrix  of 
standard  deviations  and  correlation  coefficients. 
The  input  matrix  (SDC0R)  may  represent  a complete 
covariance  or  any  diagonal  sub-block  thereof.  It 
is  assumed  to  have  standard  deviations  on  the 
diagonal  and  correlation  coefficients  in  the 
upper  triangle.  The  lower  triangle  is  ignored . 

For  further  remarks  on  locating  the  partition  to 
be  printed/punched,  see  Section  3.3.33j  Subroutine 


PRPART 

under  Remarks. 

Input/ 

Output 

Argument/ 

Common 

Definition 

I 

A 

First  word  of  partition  to 
be  printed/punched. 

I 

A 

Total  number  of  rows  in 
matrix  from  which  partition 
is  taken. 

I 

A 

Number  of  rows  in  partition. 

I 

A 

PRSDEV  - an  NR0rJ-vec  tor  of 
Hollerith  labels  correspond- 
ing to  the  variables  in  the 
parti tions . 

PUNSD  - a one-work  Hollerith 
label  for  the  matrix  parti- 
tion. 

None 
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Subroutines  Called: 
Calling  Subroutines  : 
Common  Blocks: 


PRSDEV-2 


None 

C0RREL,  GUIDE,  RELC0V 
None 


Logic  Flow 


None 


Pages  317  through  319  are  deleted. 
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SCHED-1 


3,3.36 
Purpose : 


Remarks : 


Subroutine:  SCHED  (TLAST,  TEVENT,  DELT,  JEVENT) 

To  schedule  for  G0DSEP  the  next  measurement 
or  event  to  be  processed. 

During  normal  operation,  SCHED  returns  a pre- 
computed measurement  or  event  and  then  computes 
and  stores  locally  the  next  measurement  or 
event  to  be  processed.  Therefore,  two  succes- 
sive calls  are  required  to  initialize  both  the 
measurement  and  event  scheduling  sequences. 

The  purpose  in  pre-computing  times  and  event 
codes  is  to  minimize  search  time.  When  a mea- 
surement is  scheduled,  only  measurements  need 
be  scanned  for  the  next  scheduling,  not  events. 
The  reverse,  of  course,  is  true  when  an  event 
is  scheduled. 


Input/Output : 


triable 

Input/ 

Output 

Argument/ 

Common 

Definition 

TLAST 

I 

A 

Time  of  previous  measure- 
ment/event. 

TEVENT 

0 

A 

Time  of  new  measurement/  ^ 
event. 

DELT 

0 

A 

Time  difference  between 
previous  and  new  measure- 
ment/event. 

JEVENT 

0 

A 

Integer  code  of  new  measure 
ment/event  corresponding  to 
time  TEVENT. 

BIG 

I 

C 

An  awfully  large  number. 

321 


SCHED-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

MC0DE 

I 

C 

Array  of  measurement  codes 
to  be  scheduled. 

MC0UNT 

I/O 

c 

Measurement  counter. 

NCNTE 

I/O 

c 

Eigenvector  event  counter. 

NCNTG 

I/O 

c 

Guidance  event  counter. 

NCNTP 

I/O 

c 

Prediction  event  counter. 

NCNTT 

I/O 

c 

Thrust  event  counter. 

NEIGEN 

I 

c 

Total  number  of  eigenvectoi 
events . 

NGUID 

I 

c 

Total  number  of  guidance 
events . 

NPRED 

I 

c 

Total  number  of  prediction 
events . 

NSCHED 

I 

c 

Number  of  schedule  times 
in  SCHEDM  to  be  scanned 
for  next  measurement  or 
propagation  event. 

NTHRST 

I 

c 

Total  number  of  thrust 
events . 

SC  HE  DM 

I 

c 

Array  of  measurement  sched 
ule  times 

SCHEDH(1,I)  ~ Next  time  to 
be  scheduled  for  measurement 
type  MC0DE (I) . 

SCHEDM(2  j I)  « Stop  time  for 
MC0DE  (I) , 

SCHEDM(3,I)  = Time  increment 
for  scheduling  MC0DE(I). 

C Array  of  eigenvector  event 

times. 


TE1GEN 


I 
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SCHED-3 


Variab le 

Input/ 

Output 

Argument/ 

Common 

Definition 

1 M 1.  4-1-1  W 

TFINAL 

I 

C 

Final  time. 

TGUID 

I 

C 

Array  of  guidance  event 
t ime  s . 

TPRED 

I 

...  c 

Array  of  prediction  event 
times . 

TTHRST 

I 

c 

Array  of  thrust  event 
times . 

Local  Variables: 


Variable 


Definition 


JENEXT 


Integer  code  of  next  event  to  be  sched- 
uled. 


MNEXT 


-Integer  -code  of  next  measurement  to  be 
scheduled. 


TENEXT  Time  of  next  event  to  be  scheduled. 

Time  of  next  measurement  to  be  sched- 
uled. 


Subroutines  Called:  None 

Calling  Subroutines:  0UTPTG,  STMGEN,  G0DSEP 

Common  Blocks:  C0NST,  SCHEDI,  SCHEDR 
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Logic  Flow; 


No 


^ SCHEP  ^ 


SCHED-4 


± 


TMNEXT  > 
TENEXT 


> 


No 

f 

TEVENT  = TMNEXT 
TEVENT  = MNEXT 
Increment  MC0UNT 
Find  1M1N  Such  That 
SCHEDM(1,  IMIN) 

£=  SCHEDM(1,  I) 

For  All  I £ NSCHED 

1 

TMNEXT  = SCI 
MNEXT  = MC( 
Inc remen 
0,11 
by  SCHEDM 

IED  (I , IMIN) 
3DE  (IMIN) 
t SCHEDM 
11 N) 

(3 , IMIN) 

t 

SCHEDM  (J 

SCHEDM  (2 
i. 

\ 

, IMIN)  > 

, IMIN) 

1 

Yes 

r 

SCHEDM  (I,  IMIN) 
= BIG 

to* 

£ 

Yes 


DELI  = TEVENT  - TLAST 


i. 


TEVENT  = TENEXT 
JEVENT  = JENEXT 
Increment  Appropriate 
Event  Counter 
TENEXT  = BIG 


TENEXT  = Minimum 
Of  Remaining  Event 
Times,  If  Any 
JENEXT  = Corresponding 
Event  Number 


TEVENT  > 
TFINAL 
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3.3.37  Subroutine : 
Purpose : 

Input /Output : 

Variable 

MESEVN 


AUG LAB 

EVLAB 

F0P 

IPR0P 


NAUG 

NCNTP 


SETEVN-1 


SETEVN 

Event  print  control  and  propagation  control 
for  prediction  events. 


Input/  Argument/ 

Output Common . Definition 

I C Event  code. 

= 1,  propagation. 

= 2,  eigenvector. 

= 3,  thrust  switching. 

= 4,  guidance. 

= 5,.  prediction. 

I C Array  of  augmented  para- 

meter Hollerith  labels. 


I 

I 


I 


I 


C Hollerith  event  label  array. 

C Final  off-diagonal  annihi- 

lation value  for  position 
eigenvalue  computation. 

C Print  control  flag  for 

propagation  events. 

= 0,  no  print 

- 1,  print  standard  devia- 
tions and  correlation 
coefficients  for  S/C 
state  only 

= 2,  full  eigenvector  event 
print. 

C Length  of  augmented  state 

vector , 


I 


C Number  of  current  predic- 

tion event. 
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Variable 

P 

PLAB 

PL0CAL 

PTEMP 

SCMA.SS 

TCURR 

TDUR 

TP INAL 
TGST0P 

TM 

Local  Variables: 

Variable 

LP 

Subroutines  Called 


SETEVN-2 


Input/  Argument/ 

Output Common Definition 


Location  in  blank  common 
of  current  knowledge 
covariance . 

Array  of  Hollerith  labels 
for  knowledge  covariance 
sub-blocks . 

Location  in  blank  common 
of  working  storage  provided 
to  subroutine  RELC0V. 

Location  in  blank  common  of 
predicted  knowledge  covari- 
ance . 

Current  S/C  mass* 

Current  trajectory  time. 

Maximum  integration  time 
(seconds)  for  TRAJ. 

Error  analysis  final  time. 

Maximum  integration  time 
(days)  if  prediction  event 
requires  integration  past 
TFINAL. 

Conversion  constant,  seconds/ 
day. 


Definition 


Location  in  blank  common  of  covariance 
to  be  operated  on  by  RELC0V  and  C0RREL. 


J0BTLE , MPAK,  VARSD,  PRSDEV,  PRINTT,  EIGPRN,  RELC0V, 
C0RREL,  C0VPj  MASSIG,  DYN0 , PRNEQ 


Calling  Subroutine: 


G0DSEP 
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SETEVN-3 


Common  Blocks:  W0RK,  (BLANK),  C0NST,  DIMENS,  GUIDE,  KEPC0N, 

LABEL,  L0CATE,  L0GIC,  MEASI,  PR0PI,  SCHEDI, 
SCHEDR,  TIME,  TRAJ1 


SETEVN-4 


Logic  Flow: 


SETEVN 


‘ MESEVN  ==  1,  and 
IPR0P  = 0. 

(Propagation  event  with 
no  print?) 


Write  event  label 


MESEVN  * and 
IPR0P  = 1 

(Propagation  event  with 
short  print?) 


Print  S/C 

state  uncertainties 
only 


/ 

MESEVN  = 4 

\ 

(Guidance 

\ 

event? ) 

/ 

PR I NTT.  MASSIG 


Write  trajectory 

information »®ass  error 
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SETEVN-5 
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3.3.38  Subroutine 
Purpose ; 

Input/Output  t 

Variable 

BIG 

BURNF 

CHEKPR(8) 

DELAY 

DXDKAF 

DXDKBR 

DXDKST 

GT 


SETGUI-1 


SETGUX 

Set  up  control  for  guidance  event.  Performs 
all  computations  which  must  be  done  in  primary 
overlay  which  consists  primarily  of  interfacing 
with  TRAJ. 


Input/ 

Output 

I 

0 

I 


Argument/ 

Common 

C 

'C 

C 


1/0 


Definition 


Enormous  constant,  1.E20 

Mask  and  thrust  at  guidance  start 

and  stop 


Logical  flag. 


= T,  generate  transition 
matrices  for  guidance 
by  reading  STM  file. 

= F,  integrate  transition 
matrices  for  guidance 
in  TRAJ. 


Guidance  delay  time  fcr 
current  event.  * 

DXDKST  evaluated  at  end 
of  burn  interval. 

DXDKST  evaluated  at  begin- 
ning of  burn  interval. 

Keplerian  to  cartesian 
ephemeris  transformation 
from  STMRDR,  corresponds 
to  beginning  of  guidance 
delay  interval. 

Transformation  matrix  for 
subroutine  DYN0  evaluated 
at  end  of  propagation  inter- 
val. 


GT  matrix  evaluated  at  begin- 
ning of  burn  interval. 


GTBURN 


0 
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SETGUI-2 

Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

GTDLAY 

0 

C 

GT  matrix  evaluated  at 
beginning  of  delay  interval. 

GT0FF 

0 

C 

GT  matrix  evaluated  at  end 
of  burn  interval. 

GTSAVE 

0 

c 

GT  matrix  evaluated  at  begin- 
ning of  current  propagation 
interval  for  subroutine  DYN0. 

IAUGDC 

I/O 

c 

Dynamic  parameter  augmentation 
flags. 

ICALL 

0 

c 

Setup  parameter  for  TRAJ 
(Section  3.5) 

IEP 

I 

c 

Set  UP,  VP  below. 

IEPHEM 

I 

c 

Ephemeris  element  coordinate 
system  flag. 

IGP0L 

I 

c 

Array  of  guidance  policy  flags 

IGREAD 

I 

c 

Array  of  namelist  $GEVENT 
read  control  flags. 

IN  TEG 

0 

c 

Setup,  parameter  for  TRAJ 
(Section  3.5) 

IP0L 

0 

c 

Guidance  policy  flag  for 
current  event. 

I PRINT 

0 

c 

Setup  parameter  for  TRAJ 
(Section  3.5) 

IRE  AD 

0 

c 

$GEVENT  read  policy  for 
current  event. 

IST0P 

0 

c 

Stopping  condition  parameter 
for  TRAJ  (Section  3.5) 

KUT0FF 

0 

c 

Flag  indicating  actual  inte- 
grator stopping  conditions. 

LISTDY 

I 

c 

List  of  dynamic  parameters 
contained  in  transition 
matrix  generated  either 
from  STM  file  or  TRAJ. 
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SETGUI-3 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

L0CTC 

I 

C 

Location  in  blank  common 
of  transition  matrix 
returned  by  TRAJ. 

MEVENT 

0 

C 

Setup  flag  for  TRAJ 
(Section  3.5) 

NAUG 

I 

C 

Length  of  augmented  state 
vector. 

NCNTG 

I 

c 

Number  of  current  guidance 
event . 

NFHSTM 

I 

c 

Dimension  of  transition 
matrix  returned  by  subrout ii 
STMRDR  or  by  TRAJ. 

NPRI 

I 

c 

Body  number  of  primary 
integration  body. 

NTPRAS 

I 

c 

Number  of  current  thrust  phi 

PGl 

I 

c 

Locations  in  blank  common 
of  working  storage  for 

PG2 

I 

c 

guidance  related  covariance 
computations.  , 

PHI 

I 

c 

Location  in  blank  common 
of  transition  matrix. 

PL0CAL 

I 

c 

Location  in  blank  common  of 
covariance  working  storage. 

PTEMP 

I 

c 

Location  in  blank  common  of 
covariance  working  s;orage. 

S 

0 

c 

Guidance  sensitivity  matrix 
cutoff  state  wrt  controls. 

SCrfASS 

I 

c 

S/C  mass. 

SMASS 

I 

c 

Mass  of  sun. 

STATEO 

0 

c 

Initial  integration  state 
for  TRAJ. 

TBUKN 

0 

c 

Length  of  burn  interval  for 
current  event. 
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SETGUI-4 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

TCUT0F 

I 

C 

Array  of  guidance  event 
cutoff  times. 

TDELAY 

0 

C 

Guidance  delay  time  for 
current  event. 

TDUR 

0 

c 

Maximum  integration  time 
(seconds)  for  TRAJ. 

TEVNT 

0 

c 

Event  time  for  TRAJ. 

TFINAL 

I 

c 

Error  analysis  final  time. 

TGST0P 

I 

c 

Maximum  integration  time 
if  guidance  event  needs 
transition  matrices  eval- 
uated past  final  time. 

TGUID 

I 

c 

Array  of  guidance  event 
s c he  du 1 e d times. 

THRACC 

I 

c 

Thrust  acceleration  vector. 

TIMFTA 

I 

c 

Target  condition  evaluation 
time  for  fixed  time  of 
arrival  guidance. 

TM 

I 

c 

Conversion  constant,  seconds 
day. 

T0FF 

0 

c 

Cutoff  time  for  current 
even  t . 

T0N 

0 

c 

Maneuver  execution  time  for 
current  event. 

tref 

0 

c 

TRAJ  reference  time  for 
integration  initialization. 

TSTM 

I 

c 

STM  file  time. 

UP  (1 , IEP) 

I 

c 

Position  of  ephemeris  body. 

VP  <1 ,IEP) 

I 

c 

Velocity  of  ephemeris  body. 

UTRUE 

I 

c 

S/C  heliocentric  ecliptic 
position  vector  used  to 
define  STATEO  for  TRAJ 
initialization. 
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SETGUt-5 


Variable 

Input/ 

Output 

Argument/ 

Common 

• Definition 

VTRUE 

I 

C 

S/C  heliocentric  ecliptic 
velocity  vector  used  to 
define  STATEO  for  TRAJ 
initialization. 

VRNIER 

0 

C 

Logical  flag. 

= T,  current  maneuver  is 
vernier 

= F,  current  maneuver  is 
primary. 

Variables : 

Variable 

Definition 

I HOLD 1 , IHOLD2,  IHOLD3 
IHOLDA,  I1IOLD5,  IHOLD6 


TSTMSV 


Locations  for  saving  parameter  values 
which  will  be  changed  by  calls  to 
either  STMRDR  or  TRAJ. 

Saves  STM  file  time  (TSTM)  when  gen- 
erating state  transition  matrices  by 
calling  STMRDR. 


Subroutines  Called 

Calling  Subroutine: 
Common  Blocks: 


C0PY,  ZER0M,  STMRDR,  MPAK,  STMUSE,  STMPR,  PARKE P, 
B0MB,  J0BTLE 

G0DSEP 

W0RK,  (BLANK),  C0NST,  DIMENS,  EPHEM,  GUIDE,  KEPC0N, 
L0CATE,  L0GIC,  MEASI,  PR0PI,  PR0PR,  SCHEDI,  SCHEDR* 
TIME,  TRAJ1 , TRAJ2 
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3.3.39  Subroutine 
Purpose : 

Remarks : 


Input/Output : 

Variable 

CHEKPR(l) 


DELTIM 


STMGEN-1 


STMGEN 

Generate  STM  file. 

For  effective  process  noise  computation  subroutine 
DYN0  requires  the  evaluation  at  beginning  and  end 
of  a propagation  interval  of  the  rotation  matrix 
from  body-centered  magnitude,  pitch,  yaw  system 
to  heliocentric  ecliptic  cartesian  coordinates. 

This  transformation  must  be  saved  on  the  STM  file. 
At  thrust  phase  change  two  such  transformations 
are  required,  one  for  each  phase  evaluated  at  the 
same  time  point.  Calls  to  the  trajectory  overlay 
are  generated  to  guarantee  that  this  transformation 
is  always  evaluated  for  the  interval  just  ending, 
and  an  extra  call  to  subroutine  EP  is  required  to 
evaluate  the  transformation  at  the  beginning  of 
the  new  thrust  phase.  This  pertains  to  statements 
between  statement  numbers  300  and  400. 

Input/  Argument/ 

Output Common Defini  tion 

I C Check  print  flag. 

- T,  write  to  output  all 

trajectory  information 
written  on  STM  file. 

- F,  no  write  to  output. 

I C Time  difference  between 

previously  and  currently 
scheduled  events. 


336 


STMGEN-2 


Input/  Argument/ 

Variable Output  Common  .. Definition 


L0CM  I C 

L0CTC  I C 


Location  as  blank  common  of 
current  S/C  mass. 

Location  as  blank  common  of 
current  transition  matrix. 


MESEVN  I 


C 


Current  event  code. 


NCNTT 


I 


Number  of  current  thrust 
event. 


NPHSTM  I 


C 


Dimension  of  transition 
matrix. 


TCURR  I 

TFINAL  I 

TM  I 

TPAST  I 


NPRI,  NT P HAS 
APERT,  APRIM  i 
C0MM0N  (L0CM)  \ 0 
RPACC,  THRACC  l 
UP,  VP,  UREL  l 
URELM,  VREL  1 
VRELM,  UTRUE  J 


C 

c 

c 

c 


c 


c 


Currently  scheduled  tra- 
jectory time. 

Stop  time  for  STM  file 
generation. 

Conversion  constant,  seconds/ 
day. 

Previously  scheduled  tra- 
jectory time. 


Initialization  parameters 
for  TRA J . 


Trajectory  information 
written  to  STM  file.  See 
common  block  descriptions 
for  individual  variable 
descriptions . 


337 


STMGEN-3 


Input/  Argument/ 
Variable Output Common 


Definition 


VTRUEj  UTRUEM^ 
VTRUEM,  WP0WER\  0 
GT,  GTSAVE,  l 
C0MM0N  (L0CTC)J 


C 


Local  Variables:  None 

Subroutines  Called:  C0PY,  SCHED,  EP 


Trajectory  information 
written  to  STM  file.  See 
common  block  descriptions 
for  individual  variable 
descriptions. 


Calling  Subroutine:  G0DSEP 

Common  Blocks:  W0RK,  (BLANK),  C0NST,  DIMENS,  L0GIC,  PR0PR, 

SCHEDI,  SCHEDR,  TIME,  TRAJl,  TRAJ2 


Logic  Flow: 


None 
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STMPR-1 


3,3 .40  Subroutine : STMPR  (T,  TF,  PHIMAT) 


Purpose : 


To  print  state  transition  matrix  partitions 
and  effective  process  noise  covariance  if 


computed. 


Input  /Output.: 


Variable 


Input/  Argument/ 

Output Common 


Definition 


T I A 

TF  I A 

PHIMAT  I ' A 

AUGLAB  I C 

DYNOIS  I C 

L0CAUG  I C 

L0CLAB  I C 

NAUG  I C 

NDIM  I C 

PRNSTM  I C 


Trajectory  time  at  beginning 
of  propagation  interval. 

Trajectory  time  at  end  of 
propagation  interval. 

Augmented  transition  matrix 
over 'propagation  interval. 

Array  of  augmented  parameter 
Hollerith  labels. 

Dynamic  noise  flag. 

Array  locating  sub-blocks 
within  augmented  transition 
matrix. 

Array  locating  state  vector 
partions  within  AUGLAB  array. 

Length  of  augmented  state 
vector. 

Array  of  lengths  of  individ- 
ual state  vector  partitions. 

Output  control  flag  determin- 
ing sets  of  transition  matrix 
sub-blocks  to  be  printed. 

= Tj  print  sensitivities  of 
relevant  state  vector 
partition  to  entire 
augmented  state. 

= F,  no  sensitivities  printed 
for  relevant  state  vector 
partition. 
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STHPR-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

(1)  - S/C  state 

(2)  - Solve-for  parameters 

(3)  - Dynamic  consider  para 

meters 

(4)  - Measurement  consider 

parameters 

(5)  - Ignore  parameters. 

Q 

I 

C 

Effective  process  noise 
covariance . 

VECLAB 

I 

C 

Array  of  state  vector  par- 
tition Hollerith  labels. 

Local  Variables: 

None 

Subroutines  Called 

: PRPART, 

MAT0UT 

Calling  Subroutines:  MEASPR, 

STMRDR,  GUIDE 

, SETGUI 

Common  Blocks : 

W0RK,  DIMENS,  LABEL, 

L0GIC,  PR0PR 

Logic  Flow: 

None 
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.3.3.41  Subroutine: 
Purpose : 

Remarks : 


Input/Output : 

Variable 

T 

TF 

I0PT 


STMRDR-1 


STMRDR  (T,  TF,  I0PT) 

To  read  transition  matrices  and  trajectory 
information  from  STM  file  (TAPE  3). 

During  STM  file  creation  the  user  should  have 
scheduled  as  fine  a time  grid  of  trajectory 
points  as  will  ever  be  necessary  for  the  par- 
ticular mission.  Therefore,  situations  will 
occur  during  STM  file  reading  where  many  time 
points  are  encountered  on  the  file  between 
time  points  requested  by  the  scheduler  for 
the  current  error  analysis.  In  this  situation 
transition  ma trices ■ over  the  short  time  inter- 
vals are  chained  to  produce  the  required  transi- 
tion matrix  over  the  complete  time  interval. 


Input/ 

Output 

Argument / 
Common . 

Definition 

I 

A 

Trajectory  time  at  beginning 
of  propagation  interval. 

I 

A 

Scheduled  trajectory  time  at 
end  of  propagation  interval. 

I 

A 

Option  flag. 

* 

- 0,  normal  read. 

- +1,  count  number  of  records 

read  for  future  back- 
space capability. 

= -1,  same  as  +1  but  compute 
guidance  sensitivity 
matrix  in  addition. 

4 CHEKPR(l) 


I 


C 


Check  print  flag 
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STMRDR-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

= T,  print  all  trajectory 
information  read  from 
. STM  file  and  all  inter- 
mediate products  in 
transition  matrix 
chaining . 

= F,  no  print. 

DELTIM 

I/O 

C 

Input  as  scheduled  interval 
length.  If  STM  file  is 
already  positioned  within 
forward  tolerance  DELTIM  is 
set  to  0. 

LISTDY 

I 

C 

List  of  dynamic  parameters 
included  in  transition  matrix 
read  from  STM  file. 

MESH 

0 

c 

Logical  flag. 

' 

= T,  successful  mesh  of 

scheduled  trajectory 
times  with  STM  file 
times. 

= F,  unsuccessful  mesh. 

NAUG 

I 

c 

Length  of  augmented  state 
vector . 

NPHSTM 

I 

c 

Dimension  of  transition 
matrix  read  from  STM  file. 

PHI 

I 

c 

Location  In  blank  common  of 
output  transition  matrix. 

PLOCAL 

I 

c 

Location  in  blank  common  of 
transition  matrix  working 
storage  for  chaining. 
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STMRDR-3 


Input/  Argument/ 

Variable Qu  tput Common 


Definition 


PTEMP  I 

S 0 

SCHFTL  I 


SHASS  I 

T0LBAK  X 


T0LF0R  I 


TSTM  0 

UP (1, IEP)  0 


VP  (1 ,IEP)  0 


NPRI } NTPHASN 
APERT,  APRIM 
SCMASS,  RPACC 
THRACC,UP,VP 
UREL,  URELH  \ 
VREL,  VRELM  l 
UTRUE,  VTRUE 
UTRUEM,  VTRUEM 
WP0WER,  GT 
GTSAVE 


C Location  in  blank  common 

of  transition  matrix  work- 
ing storage  for  chaining. 

C Guidance  sensitivity 

matrix  computed  if  I0PT  - 1. 

C Logical  flag. 

= T,  failure  to  mesh  is 
fatal . 

= F,  failure  to  mesh  is 
not  fatal. 

C Mass  of  sun. 

C Backward  tolerance  on  file 

time  meshing. 

C Forward  tolerance  on  file 

time  meshing. 

C Current  STM  file  time. 

C Heliocentric  position  of 

the  Earth. 

C Heliocentric  velocity  of 

the  Earth. 


Trajectory  related  informa- 
tion read  from  STM  file. 

C See  individual  parameter 

definitions  in  common 
block  descriptions. 
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STMRDR-4 


Local  Variables: 


Variable 


Definition 


IHOLD 


IPHI2 

IPHI3 


) 


Intermediate  holding  variable  used 
when  exchanging  values  of  IPH12  and 
IPHI3. 

Initially  set  to  PL0CAL  and  PTEMP 
respectively.  Values  are  switched  to 
avoid  copying  of  intermediate  transi- 
tion matrices  used  in  chaining. 


NBACK 

NUPFER 

TSTMO 


Number  of  records  read  when  I0PT  - 0 
to  be  used  for  backspacing. 

Upper  word  limit  for.  reading  STM  record. 

Last  Value  of  TSTM  when  I0PT  = 0. 


Subroutines  Called:  VECMAG,  PARKE P,  B0MB,  MMAB,  MAT0UT,  MPAK,  STMUSE, 

STMPR 


Calling  Subroutines:  C0VP,  SETGUI 

Common  Blocks:  W0RK,  (BLANK),  C0NST,  DIMENS,  EPHEM,  GUIDE, 

KEPC0N,  L0CATE,  L0GIC,  MEASI,  PR0PR,  SCHEDI, 
SCHEDR,  TIME,  TRAJ1 , TRAJ2 
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3.3.42  Subroutine: 
Purpose : 


Remarks : 


Input/Output : 
Variable 


THRNUM 


STMUSE-1 


STMUSE  (THRNUM,  DXDK,  STMIN,  NIN,  LISTIN, 

STM0UT,  N0UT) 

To  convert  state  transition  matrix  as  read  from 
STM  file  to  state  transition  matrix  as  needed 
by  augmented  covariance  matrix. 

There  are  two  possible  operations  required  to 
convert  STM  file  transition  matrices  to  the 
augmented  transition  matrix  required  for 
covariance  propagation: 

(1)  ordering  of  rows  and  columns  with  insertions 
for  measurement  parameters  and  deletions 
for  unused  dynamic  parameters  as  necessary 

(2)  scaling  of  thrust  parameter  sensitivities 
to  account  for  number  of  thruster  operating 
over  current  phase; 


Input/  Argument/ 

Output Common Definition 

I A Number  of  thrusters  operat- 

ing over  transition  matrix 
interval . 
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STMUSE-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

STMIN 

I 

A 

Input  transition  matrix. 

NIN 

I 

A 

Dimension  of  input  transi- 
tion matrix. 

LISTIN 

I 

A 

List  of  parameters  includei 
in  input  transition  matrix 

STM0UT 

0 

A 

Output  transition  matrix. 

N0UT 

0 

A 

Dimension  of  output  transi 
tion. matrix  (required  only 
variably  dimensioning 
STM0UT) . 

LIST 

I 

C 

Parameter  List  for  output 
transition  matrix. 

LISTPH 

I 

C 

Parameter  list  of  possibl 
ephemeris  elements. 

Local  Variables:  None 

Sabrou tines  Called:  IDE NT,  L0ADRC,  SQRT,  L0CLST,  SCALE,  L0DC0L,  MMAB 

Calling  Subroutines:  STMRDR,  SETGUI 
Common  Blocks:  W0RK,  DIMENS,  MEASI 


Logic  Flow: 


See  List 
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STMUSE-3 


Logic  Flow: 
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VERR-1 

3.3.43  Subroutine:  VERR  (VARDV,  DV,  C0VERR) 

Purpose : 

Method : 


Xnpu t/Output : 

Variable 

VARDV  I A AV  execution  error 


variances : 


- 2 

^PRO, 

c r 2 

RES, 

2 2 
Oi 

j 

DV 

I 

A 

Av  = 

(AVx, 

AVy.  AVZ) 

C0VERR 

0 

A 

Execution  error  covariance 

Subroutines  Called:  None 

Calling  Subroutines:  GUIDE 
Common  Blocks : None 

Logic  Flow: 


To  compute  the  A\T  execution  error  covariance. 
Variances  in  A V proportionality,  resolution 
and  two  pointing  angles  are  applied  to  the  input 
AV  to  form  the  execution  error  covariance  (See 
Section  6.3  of  the  Analytic  Manual). 

Input/  Argument/ 

Output  Common  Definition 


None 
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SIMSEP-1 


3#4  Subroutine : SIMSEP 


Purpose 


Method 


To  control  the  overall  logic  flow  of  the  trajec 
tory  simulation  mode,, 

SIMSEP  is  the  main  subroutine  in  the  trajectory 
simulation  mode.  Its  primary  function  is  to 
control  the  execution  of  algorithms  and  logic 
according  to  the  operation  and  option  flags 
specified  during  input.  This  is  done  in  two 
basic  cycles  within  the  program.  The  first, 
or  outer  cycle,  is  the  so-called  Monte  Carlo 
mission  cycle  where  a complete  actual  trajectory 
is  propagated  from  beginning  to  end.  Included 


within  the  mission  cycle  is  the  guidance  event 
loop  where  trajectory  estimation  and  guidance 
are  performed  to  keep  the  "actual"  trajectory 
on  course.  After  many  sample  missions  have  been 
flown,  certain  statistical  parameters  are  com- 
puted to  aid  in  the  deduction  of  expected  trajec- 


Remarks: 


tory  characteristics  and  system  performance. 

One  of  the  key  operations  performed  in  SIMSEP 
and  its  subordinate  routines  is  the  propagation 
of  trajectories  from  one  time  point  to  another. 
This  operation  may  simultaneously  include  the 
generation  of  state  transition  matrices . Since 
all  communications  with  the  integrator  are  by 
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SIMSEP-2 


Variable 

EP0CH 

TREF 

TDUR 

STATEO 

SCMASS 

NTPHAS 

NPRI 

ICALL 


1NTEG 


common  block  variables,  the  explicit  in  line 
initialization  of  integrator  control  variables 
prior  to  calling  the  trajectory  routine  is 
evident  throughout  SIMSEP.  A list  of  variables 
which  must  be  defined  to  properly  initialize 
the  trajectory  is  given  below.  This  list  should 
clarify  how  SIMSEP's  interface  with  TRAJ  is  per- 
formed. 

___  Definition 


Initial  trajectory  epoch,  a Julian 
date. 

Trajectory  starting  time  (in  seconds) 
measured  from  EP0CH. 

Trajectory  termination  time  (in 
seconds)  measured  from  EP0CH. 

State  vector  specified  at  TREF. 

S/C  mass  specified  at  TREF. 

Thrust  phase  number  of  TREF. 

Primary  body  number  at  TREF. 

Trajectory  initialization  flag. 

ICALL  = 1,  the  trajectory  is  ini- 
tialized and  propagated. 
ICALL  = 2,  the  trajectory  is  ini- 
tialized only. 

ICALL  = 3,  the  trajectory  is  propa- 
gated from  a previous 
integration  step. 

Flag  indicating  which  equations  are 
to  be  integrated  in  TRAJ. 

INTEG  = 1,  equations  of  motion  and 

variational  equations  are 
to  be  integrated. 
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SIMSEP-3 


Variable 


IST0P 


Input /Output : 

Variable 

NREF 

UREL 


VREL 


BLANK 

(L0CM) 


Definition 


INTEG  = 2,  only  the  equations  of 
motion  are  integrated. 

Trajectory  stopping  condition  flag. 

IST0P  = 1,  the  trajectory  integration 
is  ended  at  TDVR. 

IST0P  - 2,  the  trajectory  integration 
is  ended  when  closest 
approach  is  detected  at 
the  Earth. 


Input/  Argument/ 

Output Common Definition 


C State  vector  read-in  flag. 

C Relative  s/c  position 

vectors . 

UREL  Ci»l)  for  i = 1,  2,  3 
is  the  heliocentric  posi- 
tion vector  of  the  s/c. 

UREL  (i,  ITP)  for  i - 1, 

2,  3 is  the  position  vector 
relative  to  the  Earth.  ; 


C VREL  (i,l)  for  i = 1,  2,  3 

is  the  heliocentric  velocity 
vector  of  the  s/c. 

VREL  (i,  ITP)  for  i - 1, 

2,  3 is  the  velocity  vector 
relative  to  the  Earth. 


C Current  s/c  mass  at  any 

given  instant  along  the 
trajectory  integration. 

/ 

C Trajectory  stop  time  rela- 

tive to  EP0CH. 


TST0P 


I 
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SIMSEP-4 


Variable 

Input/ 

Output 

Argument/ 

Conmon 

Definition 

EP0CH 

I 

C 

Initial  epoch  of  the  mis- 
sion. A Julian  data  corre- 
sponding to  the  launch  of 
the  mission. 

TGE 

I 

C 

Epoch  of  a guidance  event. 

IRAN 

I 

C 

Random  number  seed. 

N0ISED 

I 

C 

Thrust  process  noise  flag. 
If  N0ISED  - 1,  time-varying 
dynamic  noise  is  activated 
in  the  trajectory  integra- 
tor. If  N0ISED  - 0,  there 
is  no  dynamic  noise. 

PG 

I 

C 

Initial  s/c  control  cov- 
ariance In  eigenvector/ 
eigenvalue  form. 

KTERR 

I 

C 

Flag  to  Indicate  whether 
or  not  a trajectory  is  to 
be  propagated  after  a given 
guidance  correction  to  the 
designated  target  to  eval- 
uate target  errors.  If 
KTERR  ■ 1,  target  errors 
are  computed.  If  KTERR  * 

0,  no  target  errors. 

NSAMP 

I 

c 

Previous  number  of  Monte 
Carlo  cycles  that  have  been 
processed  for  a given 
guidance  event. 

MC 

I 

c 

Previous  number  of  Monte 
. Carlo  cycles  that  have 
been  processed  for  the 
total  aisslon. 

RXGE 

I 

c 

Reference  trajectory  state 
vectors  at  guidance  events. 

BMGE 

I 

c 

Reference  s/c  mass  at  guid- 
ance events. 

RXTAR 

I 

c 

Reference  trajectory  state 
at  the  target  time. 

RMTAR 

I 

G- 

Reference  s/c  mass  at  the 
target  time. 
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SIMSEP-5 


Input/  Argument/ 

Variable  Output Common Definition 


THRUST  I 

C 

Thrust  control  array. 

MTPH  I 

C 

Thrust  control  phase  number 
at  guidance  events. 

STHRT3  I 

C 

Stored  thrust  control  array 
for  the  reference  trajectory 
thrust  profile. 

NGUID  I 

C 

Number  of  guidance  events 
for  this  mission. 

N CYCLE  I 

C 

Number  of  Monte  Carlo 
cycles  for  this  SIMSEP 
run. 

Local  Variables: 

Variable 

Definition 

IC 

Monte  Carlo  cycle  counter  for  complete 
missions* 

IMAN 

Guidance  event  counter  for  completed 
guidance  events  within  a mission. 

XREFO 

Initial  reference  trajectory  state 
vector. 

XA 

Actual 

trajectory  state  vector. 

XE 

Estimated  trajectory  state  vector. 

XT 

Actual 
ables • 

trajectory  final  target  vari- 

IPRNT 

Print 

output  flag. 

Guidance  convergence  flag. 


ICNVEG 
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Variable  ( 
DELTAU 

1GUID 

Subroutines  Called: 

Calling  Subroutines: 
Comon  Blocks : 


SIMSEP-6 


Definition  

Guidance  control  corrections  computed 
at  a guidance  event* 

Guidance  law  flag. 


C0PY,  CSAMP,  DATAS,  EPHSMP,  ERRSMP  , EXGUID, 
LGUID,  NLGOID,  N0ISE,  0D,  0PSTAT,  TRAJ, 
REFRTJ,  SET,  SPRNT1,  STAT,  TC0MP,  VECMAG, 
ZER0M 

MAPSEP 

C0NST,  CYCLE,  DYN0S,  EDIT,  EPHEM,  IASTM, 
SIM1,  ISIM1,  SIM2,  ISIK2,  SIHLAB,  ST0REC, 
TIME,  TRAJ1,  TRAJ 2,  WORK,  (BLANK) 


SIMSEP-7 


Logic  Flow : 


SIMSEP 


t NFEF 


REFTRJ 

Compute  reference  trajectory 
conditions  at  the  guidance  and 
target  points 


^Start  of  Monte  Carl< 


1 


SIMSEP-8 


CSAMP 


Sample  PG  To  Form  XA 


GRVSMP 

Sample  GMERR  and  J2ERR 
to  form  actual  PMASS(3) 
and  J2 


ERRSMP 

Sample  S/C  Parameter  Errors 
To  Form  Actual 
THRUST,  SCMASS , Etc. 


SET (+1) 

Save  All  Actual  Parameters 
That  Have  Been  Sampled  In 
The  SSl-Arrays 


tart  of  Guidance 


Cycle 


I MAN  = I MAN  + 1 


SET  (-1) 

Set  All  Nominal  Working 
Arrays  With  The  Actual 
Parameter  Values 


OVERLAY (TRAJ) 

Propagate  Actual  Trajectory 
To  Guidance  Event 


Sample  Augmented  Knowledge 
Covariance  To  Form  Estimated 
State  Vector  XE 
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SIMSEP-10 
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CSAMP-1 


3.4.1  Subroutine : 
Purpose : 

Method : 


Remarks : 


Input /Output : 
Variable 


CSAMP  (EVEC,  NN,  REFVEC,  SMPVEC,  IRAN) 

To  sample  a n-dimensional  covariance  matrix  in 
order  to  formulate  a zero-mean,  Gaussian,  error 
vector  which  is  added  to  the  reference  value. 

From  an  input  array  of  eigenvalues  corresponding 
to  a specified  covariance  matrix  in  an  uncorre- 
lated representation,  a standard  Monte  Carlo 
sampling  technique  is  used  to  define  a random 
vector.  This  random  vector  is  then  multiplied 
by  the  modal  matrix  of  eigenvectors  to  rotate 
it  back  into  the  original  state  space.  It  is 
added  to  the  reference  vector  to  obtain  a sample 
vector . 

This  routine  is  used  in  SIMSEP  for  constructing 
random  actual  state  vectors  relative  to  the 
reference  state  at  the  initial  time  from  the 
input  control  error  covariance.  It  is  also 
used  to  compute  an  augmented  estimated  state 
vectors  from  the  input  knowledge  covariances  at 
guidance  events.  The  maximum  dimension  a 
covariance  matrix  may  have  is  20  X 20. 


Input/ 

Output 


Argument/ 

Common 


Definition 


Variably  dimensioned 
(NN  X (NN+1))  array  of  eigen 
vectors  and  eigenvalues. 

The  (NN  X NN)  square  matrix 


EVEC 


I 


A 
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C SAMP -2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

is  the  so-called  modal 
matrix  which  has  eigen- 
vectors as  columns.  The 
(NN  4-  1)  column  vector  is 
the  (NN  X 1)  vector  of 
eigenvalues. 

NN 

I 

A 

Dimensionality  of  the  EVEC 
matrix . 

REFVEC 

I 

A 

Reference  state  vector  to 
the  sampled  error  vector  is 
added . 

SMPVEC 

0 

A 

Sampled  state  vector  which 
is  different  from  REFVEC  by 
the  sampled  error  vector. 

IRAN 

I 

A 

Random  number  generator  usod 

. Variables: 

Variables 

Definition 

D Sampled  error  vector  to  be  added  to 

REFVEC.  Equivalences  to  elements  in 
the  W0RK  common. 


Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 


RNUM,  MMAB,  ADD 
SIMSEP,  0D,  EPHSMP 
W0RK 


Logic  Flow: 
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C SAMP -3 


3,4.2  Subroutine : 


DATAS 


Purpose : 


Method : 


Input /Output : 

Local  Variables: 
Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks ; 

Logic  Flow: 


To  make  calls  to  SDAT1  and  SDAT2  in  order  to 
read  the  SIMSEP  input. 

DATAS  is  a macro-logic  routine  which  serves 
exclusively  to  call  SDAT1  and  SDAT2  in  sue- 

C 

cession. 

None 

None 

SDAT1,  SDAT2 

SIMSEP 

None 


None 


Pages  364  through  374  have  been  deleted. 
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EPHSMP-1 


3.4.4  Subroutine;  EPHSMP  (IPRNT) 

Purpose ; To  make  random  samples  from  the  Input  ephemeris 

planet  error  covariances  and  the  gravitational 
constant  uncertainties. 

Me thod : A standard  Monte  Carlo  sampling  procedure  is 

used  to  form  discrete  errors  in  the  Cartesian 
state  vector  of  the  ephemeris  planets.  This 
sampling  Is  made  at  a specified  epoch  and  is 
transformed  into  changes  in  the  Keplerian  orbital 
elements.  The  analytic  ephemeris  is  modified  to 
reflect  these  ephemeris  errors.  Likewise,  errors 
are  computed  for  the  solar  and  ephemeris  planet 
gravitational  constants. 

Input/Output : 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

SMASS 

<1 

I/O 

C 

Solar  gravitational 
constant. 

PMASS 

I/O 

C 

Planetary  gravitational 
constant . 

PLANET 

I 

C 

Hollerith  array  of  planetary 
names . 

CSAX 

I/O 

C 

Analytic  ephemeris  semi- 
major axes. 

CECC 

I/O 

c 

Analytic  ephemeris  eccen- 
tricities . 

CINC 

I/O 

c 

Analytic  ephemeris  inclina- 
tions . 
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EPHSMP-2 


Variable 

Input/ 

Output 

Argument / 
Common 

Def ini tion 

C0MEG 

I/O 

C 

Analytic  ephemeris  argu- 
ments of  the  ascending 
mode . 

C0MEGT 

I/O 

C 

Analytic  ephemeris  argu- 
ments of  the  apsis. 

CMEAN 

I/O 

c 

Analytic  ephemeris  mean 
anomalies  and  mean  motions. 

GMERR 

I 

c 

One  sigma  uncertainties  in 
the  gravitational  constants. 

XEPH 

I/O 

c 

Ephemeris  planet  state 
vector  at  epoch. 

NEP2 

I 

c 

Flag  array  specifying  the 
ephemeris  planets. 

EPHERR 

I 

c 

Eigenvector /eigenvalue 
representation  of  the 
ephemeris  error  covariance. 

TEPH 

I 

c 

Epoch  at  which  the  ephemeris 
errors  are  evaluated. 

Variables : 

Variable 

Definition 

GMUS 

Temporary 

storage  for  the  solar  gravi- 

tational  constant. 

GMU  Sum  of  sampled  solar  and  planetary 

masses „ 

XX  Temporary  storage  for  the  sampled 

Cartesian  ephemeris  planet  state. 

EL  Temporary  storage  for  the  sampled 

orbital  elements. 


Subroutines  Called:  RNUM>  CSAMP,  C0NIC , C0PY,  ZER0M 
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EPHSMP-3 


Calling  Subroutines:  SIMSEP 

Common  Blocks:  C0NST,  DYN0S,  EPHEM,  SIM1,  ISEMl,  W0RK 


31 


Logic  Flow: 


EPHSMP-4 


EPHSMP 


Sample  GMERR(l)  for  a 
Solar  Mass  Error  to  Add 
to  SMASS 


DO  II  = 1,  2 


NEP2  (II)  = 0 
I No 


RETURJt- 


Page  379  has  been  deleted. 
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ERRSMP-1 


3*4.5  Subroutine : ERRSMP 

Purpose : To  make  random  samples  from  input  SEPS  parameter 

errors,  thrust  biases  and  thrust  process  noise 
in  order  to  formulate  actual  values  for  these 
parameters  used  during  the  propagation  of  an 
actual  trajectory.  * 

Me thods i A standard  Monte  Carlo  sampling  procedure  is  used 

to  compute  random  errors  which  are  added  to  the 
reference  values  to  form  "actual"  parameter 
values. 


Input/Output : 
Variable 


Input/  Argument/ 

Output Common 


Definition 


SCMASS 

1/0 

C 

Initial  S/C  mass* 

ENGINE (10) 
(=EXHVEL) 

I/O 

c 

Thrust  exhaust  velocity. 

ENGINE (1) 
(=P0WERO) 

I/O 

c 

Electric  power  at  1.  A.U. 

ENGINE(ll) 

(=THREFF) 

I/O 

c 

Thruster  efficiency. 

ENGINE (15) 
(-CRA) 

I/O 

c 

Radiation  pressure  coeffi- 
cient . 

THRUST 

I/O 

c 

Thrust  control  array. 

TN0ISE 

0 

c 

Thrust  control  noise. 

GTAU1 

0 

c 

Thrust  control  noise  time 
correlation  coefficients 
for  the  first  process* 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

GTAU2 

0 

C 

ThruBt  control  noise  time 
correlation  coefficients 
for  the  second  process . 

SCERR 

I 

C 

SEPS  parameter  errors. 

TCERR 

I 

C 

< 

Thrust  control  biases. 

TVERR 

I 

C 

Time  varying  thrust  control 
errors. 

JMAX 

I 

C 

Total  number  of  active 
thrust  phases. 

JMIN 

I 

C 

Thrust  phase  number  for  the 
first  active  phase 

Subroutines 

Called: 

RNUM 

Calling  Subroutines: 

SIHSEP 

Common  Blocks: 

C0NST,  DYN0S, 
TRAJ2,  W0RK 

SIKL , ISIM1,  TIME,  TRAJ1, 
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3.4.6A  Subroutine : 

b 

Purpose : 

Method: 


Input/Output : 

Variables 

XA 

PELTAU 

IMAN 

IPRNT 

EXVERR 

THRUST 


EXGUID  (XA,  DELTAU,  IMAN,  IPRNT) 

To  execute  commanded  thrust  control  changes  or 
impulsive  delta-velocity  corrections  which  have 
been  computed  by  the  guidance  algorithm. 

For  a low  thrust  guidance  event,  the  actual 
thrust  controls  are  changed  according  to  the 
commanded  corrections  computed  by  the  guidance 
algorithm.  These  updated  thrust  controls  still 
reflect  thrust  biases  which  were  determined  as 
random  samples  from  the  input  error  sources. 

For  an  impulsive  guidance  event,  the  commanded 
delta-velocity  is  corrupted  by  randomly  sampled 
execution  errors  and  is  then  added  to  the  actual 
state  vector  as  an  instantaneous  velocity  change. 


Input/ 

Output 

Argument/ 

Common 

Definition 

I/O 

A 

Actual  s/c  state  vector. 

I 

A 

Commanded  thrust  control 
correction  or  delta- 
velocity  change. 

I 

A 

Number  of  the  current 
guidance  event. 

I 

A 

Print  output  flag. 

I 

C 

Impulsive  maneuver  execu- 
tion errors. 

I/O 

C 

Thrust  control  array. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

NTC 

I 

C 

Number  of  active  thrust 
controls . 

IGL 

I 

C 

Guidance  law  specifica- 
tion flag. 

Local  Variables: 

Variable 

Definition 

EDVM 

ADVM 

UEDV 

AE 


BE 


AA 


BA 


Magnitude  of  the  commanded  delta- 
velocity  correction. 

Magnitude  of  the  actual  delta- 
velocity  correction. 

Unitized  estimated  delta -velocity 
vector. 

Angle  measured  ir.  the  ecliptic  plane 
from  the  positive  X-axis  to  the  pro- 
jection of  the  commanded  delta-velocity 
correc  tion. 

Angle  measured  out  of  the  ecliptic 
plane  to  the  commanded  delta -velocity 
correc  tion . 

Angle  measured  in  the  ecliptic  plane 
from  the  positive  X-axis  to  the  pro- 
jection of  the  actual  delta -velocity 
correction. 

Angle  measured  out  of  the  ecliptic 
plane  to  the  actual  delta -velocity 
correction.. 


Subroutines  Called:  VECMAG,  UNITV,  RNUM,  ZER0M , ADD,  SET,  MAT0UT,  C0PY 

Calling  Subroutines;  SIMSEP 

Common  Blocks:  C0NST,  DYN^S,  1ASTM,  SIM1,  ISIM1,  SIMLA#,  ST0REC,TRA41 
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Logic  Flow: 


EXGUID 


RETURN 


1GL:0 


EDVM  = If  DELTAU  ( 


EDVM: SMALL 


EXGUID-4 


1 


/ Print : Commanded 

f and  Actual  Delta - 
Velocity  * 
Corrections 


/ Print:  Commanded 

f Thrust  Control 
Corrections  and 
Actual  Thrust 
Controls 


J 
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3.4.6B  Subroutine:  GUIDMX  (PHI,  THETA,  ETA,  GAMMA,  NC,  NT,  IGUID, 

IMAN,  C0NWT) 

Purpose : To  calculate  the  guidance  matrix  used  by  the 

linear  guidance  algorithm. 

Method : The  guidance  matrix,  P , is  computed  from  tra- 

jectory sensitivities  evaluated  about  the 
reference  trajectory  according  to  the  guidance 
policy  specified  during  input.  The  computational 
steps  in  formulating  P are  discussed  in  the 
Analytic  Manual,  Section  7.3.1.  Once  the  guid- 
ance matrix  has  been  determined,  it  is  stored 
and  used  on  successive  Monte  Carlo  cycles,  thus 
eliminating  the  need  to  re-evaiuate  trajectory 
sensitivities. 

Input/Output: 

Input/  Argument/ 

Variable  Output Common Definition 


PHI 

I 

A 

State  to  state  transition 
matrix,  § . 

THETA 

I 

A 

Control  variable  to  state 
component  transition  matrix, 

0 . 

u 

ETA 

I 

A 

State  to  target  variable 
transformation  matrix,  M . 

l 

gamma 

0 

A 

Guidance  matrix,  \ 

NC 

I 

A 

Number  of  control  variables. 

NT 

I 

A 

Number  of  target  variables. 

IGUID 

I 

A 

Guidance  maneuver  type  flag. 
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Input/  Argument/ 


Variable 

Output 

Common 

Definition 

IMAN 

I 

A 

Guidance  event  number. 

C0NWT 

I 

A 

Weighting  factors  for  the 
control  variables. 

Local  Variables: 

Variable 

Definition 

TMX1 

TMX2 

TMX3 

1 

L Temporary  matrices  storing 
\ intermediate  calculations. 

Subroutines  Called 

: GENINV, 

MMAB,  MPAK, 

SCALE 

Calling  Subroutine 

: REFTRJ 

Common  Blocks: 

None 
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3 .4. 6C  Subroutine:  GRVSMP 


Purpose:  To  make  random  samples  from  the  input  gravitational 

uncer ta inties , 

Method:  A standard  Monte  Carlo  sampling  procedure  is  used 

to  form  discrete  errors  in  the  masses  of  the  Earth 
and  sun  and  in  the  ^ harmonic  coefficient  appearing 
in  the  gravitational  potential. 


Input/Output: 


Argument/ 


Variable 

Output 

Common 

Definition 

SMASS 

I/O 

C 

Solar  gravitational  constant. 

PMASS (3) 

I/O 

C 

Earth  gravitational  constant. 

GMERR 

I 

C 

One  sigma  Uncertainty  in  the 
gravitational  constant. 

J2 

I/O 

C 

coefficient  in  the  gravity 
tional  potential  function. 

J2ERR 

I 

C 

One  sigma  uncertainty  in  J^. 

Load  Variables: 

None 

Subroutines  Called: 

RNUM 

Calling  Subroutines: 

SIMSEP 

Common  Blocks: 

DYN0S,  EPHEM,  SIM1,  ISIM1 

Flow  Diagram: 

See  Listing 
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3.4.7  Subroutine:  LGUID  (XE,  IMAN,  IPRNT,  DELTAU) 

Purpose : To  compute  low  thrust  or  impulsive  guidance 

corrections  using  a linear,  non-iterative 
guidance  law. 

Method : Using  the  linear  guidance  matrix,  P , formu- 

lated in,  GUIDMX,  LGUID  computes  a set  of  low 
thrust  or  impulsive  corrections  according  to 
the  matrix  equation 


a u = r fxE , 

where  > X_  is  the  state  vector  difference 
— E 

between  the  estimated  and  reference  trajectory 
state  at  the  guidance  point. 


Input /Output : 


Input/ 

Variable  Output 


Argument/ 

Common 


Definition 


XE  I 

IMAN  I 

IPRNT  I 

DELTAU  0 


SMAT  I 

NTC  I 

RXGE  I 


A Estimated  S/C  state  vector. 

A Number  of  the  current  guid- 

ance event. 

A Print  output  flag. 

A Output  vector  of  low  thrust 

or  impulsive  velocity  cor- 
rections . 

C Saved  guidance  matrix  pre- 

viously computed. 

C Number  of  control  variables. 

C Reference  trajectory  state 

vector  at  the  guidance 

point. 
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Lcical  Variables; 

Variable 

DXE 

gamma 

EDU 

Sub rout Ine  s Ca 1 led : 
Calling  Subroutines: 
Common  Blocks: 

Logic  Flow: 


Definition 


Deviation  of  the  estimated 
state  vector  relative  to 
the  reference  trajectory  at 
the  guidance  point. 

Guidance  matrix,  F . 

Temporary  storage  for  the 
computed  control  correction. 


C0PY,  MMAB,  SUB 
SIMSEP 

IASTM,  SIM1,  ISIMl,  SIMLAB,  ST0REC,  TIME,  W0RK 


None 
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3.4.8  Subroutine:  NLGUID  (XE,  IMAN,  IPRNT,  DELTAU,  ICNVEG) 

Purpose:  To  compute  low  thrust  or  impulsive  guidance  cor- 

rections using  a nonlinear  guidance  algorithm. 

Method : The  estimated  state  is  propagated  to  the  designated 

target  time  where  target  errors  relative  to  the 
reference  target  conditions  are  evaluated.  State 
variations  with  respect  to  guidance  controls  are 
computed  with  the  estimated  trajectory  propagation. 
From  the  target  errors  and  the  resultant  sensitiv- 
ity matrix , a linear  control  correction  is  calcu- 
lated and  applied  as  an  update  to  the  current  con- 
trols. This  process  is  repeated  until  the  target 
errors  are  within  specified  tolerances.  If  the 
target  tolerances  are  not  satisfied  after  NMAX 
iterations,  further  guidance  corrections  for  the 
current  Monte  Carlo  mission  are  aborted  and  the 
mission  is  ended.  A more  complete  discussion  of 
the  nonlinear  guidance  problem  and  the  method  of 
solution  which  has  been  implemented  here  is  given 
in  the  Analytic  Manual,  Section  7.3.4. 


INPUT /OUTPUT: 
VARIABLE 

INPUT/ 

OUTPUT 

ARGUMENT/ 

COMMON 

DEFINITION 

XE 

I 

A 

Estimated  S/C  state  vector. 

IMAN 

I 

A 

Number  of  the  current  guidance 
event . 

IPRNT 

I 

A 

Print  output  flag. 

DELTAU 

0 

A 

Computed  low  thrust  or  impulsive 
control  corrections. 

ICNVEG 

0 

A 

Convergence  flag. 

= 0,  No  convergence  after  ITMX 
iterations  or  after  the  quadratic 
error  function,  Q,  has  increased 
on  three  successive  iterations. 

= 1,  Weak  convergence  after  ITMX 
iterations  and  Q being  less  than 
A OK. 

= 2,  Strong  convergence  (Q  £ 1). 

T0L  I C Array  of  target  error  tolerances 

used  in  computing  the  quadratic 
.error  function. 
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VARIABLE 


INPUT/  ARGUMENT 
OUTPUT  COMMON 


DEFINITION 

Flag  designating  the  type  of 
guidance  correction  to  be  computed. 

If  IGL  = +2,  the  guidance  is  low 
thrust.  If  IGL  = -2,  the  guidance 
is  impulsive. 

Maximum  number  of  guidance  itera- 
tions allowed.  (Input  as  NMAX) . 

Weak  convergence  tolerance. 

Flag  to  indicate  whether  the  trajectory 
sensitivities  are  to  be  computed  by 
numerical  differencing  (ISTM=0)  or  by 
integrating  variational  equations 


NTAR 


(ISTM=1) . 
Number  oi 


umber  of  target  variables. 


Number  of  control  variables. 


TTAR 


LSTAR 


Time  of  the  guidance  event. 
Designated  target  time. 

List  of  target  variable  codes. 


XTARG 


* Reference  trajectory  target  con- 
ditions at  the  designated  target 
time. 


C0NWT 


THRUST 


Stored  sensitivity  matrix. 
Control  variable  weights. 
Array  of  thrust  controls. 


STHRT2 


Stored  array  of  estimated  thrust 
controls . 


RXTAR 


UNTAR 


Reference  trajectory  state  at  the 
designated  target  time. 

Conversion  factor  which  convert 
target  variables  from  internal  to 
external  units . 


DVMXN 


Maximum  del ta -velocity  magnitude 
change. 
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INPUT/  ARGUMENT 

VARIABLE OUTPUT  COMMON  DEFINITION 


IJH 

I 

C 

PHI 

0 

c 

THETA 

0 

c 

LOCAL  VARIABLES: 
• VARIABLE 

DEFINITION 

Array  of  indices  which  identify 
the  position  in  the  THRUST  array 
of  the  active  controls, 

State  to  state  transition  matrix 
between  TGE  and  TTARG. 

Controls  to  state  transition  matrix 
between  TGE  and  TTARG. 


WW  Weighting  matrix  used  in  formulating  the  quad- 

ratic error  function.  WW  is  diagonal  with  the 
reciprocal  target  tolerances  squared  for  the 
non-zero  entries. 

XXE  Estimated  trajectory  state  vector  at  TST0P. 


ITER  Current  iteration  counter. 

Q2  Value  of  the  quadratic  error  function  evaluated 

on  two  previous  iterations. 

Q1  Value  of  the  quadratic  error  function  evaluated 

on  one  previous  iteration. 


QO  Current  value  of  the  quadratic  error  function. 

ETA  Transformation  matrix  mapping  differential  state 

variables  into  differential  target  variables. 


EDV 


Delta-velocity  guidance  correction  at  the  cur- 
rent iteration. 


EDU  Delta-thrust-control  guidance  correction  at  the 

current  iteration. 

TARGX  Target  variables  evaluated  on  the  estimated 

trajectory  at  TST0P. ; 

TARERR  Target  error  at  TST0P. 


GAMMA 


Guidance  matrix  which  maps  target  errors  into 
control  variables. 


Subroutines  Called:  ZER0M,  MAT0UT,  C0PY,  SET,  MMAB,  GENINV,  VECMAG, 

SCALE,  ADD,  THC0KP,  TC0I1P,  SUB,  MMATBA,  EC0MP, 
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Calling  Subroutines:  SIMSEP 

Common  Blocks:  C0NST,  TRAJ1 , TRAJ2 , SXM1,  ISM1 , TIME,  (BLANK) 
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Pages  396  through  402  have  been 


deLeted 
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3.4.9A  Subroutine : 0D  (XA,  XE,  IMAN,  IPRNT) 


Purpose : 


Method 


Input /Output : 
Variable 


XA 


To  estimate  the  s/c  state  vector  and  parameters 
which  have  been  augmented  to  the  state  at  a 
guidance  event. 

Since  an  explicit  orbit  determination  process 
and  measurement  models  are  not  included  in 
SIMSEP,  0D,  in  effect,  performs  the  state  esti- 
mation function.  A knowledge  covariance,  which 
has  been  transformed  into  an  eigenvector/ 
eigenvalue  representation,  is  randomly  sampled 
to  form  an  error,  & X^,,  in  the  estimated  state 
vector  relative  to  the  actual,  i.e.,  S - 


*E 


- X . If  parameters  such  as  gravitational  con- 


stants thrust  biases,  etc.,  have  been  augmented  to 
the  s ix— component  Cartesian  state,  estimated 
errors  for  these  parameters  are  simultaneously 
computed  by  sampling  an  augmented  knowledge  covar- 
iance, The  formulated  error  vector  is  added  to  the 
corresponding  actual  values  to  define  an  estimated 
state  and  estimates  of  the  augmentation  parameters 
to  be  used  in  calculating  guidance  corrections. 


Input/ 

Output 


Argument/ 

Common 


Definition 


Actual  s/c  state  vector 
(position  and  velocity) 


Input/ 

Variable  Output 


Argument/ 

Common 


Definition 


XE  0 

I MAN  ' I 

IPRNT  I 

BLANK  I 


ENGINE (1)  0 

( = P0WERO) 

SP03  I 


ENGINE (10)  0 

( = EXHVEL) 

SEXV3  I 


ENGINE (11)  0 

( = THREFF) 

STEFF3  I 


ENGINE(15)  0 
( = CRA) 


SCRA3  I 

SCMASS  0 - 

RMGE  I 

THRUST  0 

STHRT3  I 


A 

A 

A 

C 


C 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Estimated  s/c  state  vector 
(position  and  velocity)* 

Number  of  the  current  guid- 
ance event. 

Print  output  flag. 

Array  of  eigenvector  and 
eigenvalues  corresponding 
to  the  augmented  knowledge 
covariance . 

Estimated  electric  power  at 
1 A.U. 

Saved  reference  value  of 
the  electric  power  at  1 

A.U. 


Estimated  thrust  exhaust 
velocity. 

Saved  reference  value  of 
the  thrust  exhaust  velocity. 

Estimated  thruster  effi- 
ciency. 

Saved  reference  value  of 
the  thruster  efficiency. 

Estimated  radiation  pressure 
coefficient. 

Saved  reference  value  of 
the  radiation  pressure. 

Estimated  SEPS  mass. 

Reference  SEPS  mass. 

Estimated  thrust  control 
array. 

Saved  reference  thrust 
control  array. 


Page  405  has  been  deleted. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

kdim 

I 

C 

Dimension  of  the  augmented 
knowledge  covariance. 

SMASS 

I/O 

C 

Estimated  solar  gravita- 
tional constant. 

PMASS 

I/O 

C 

Estimated  Earth  grav- 
itational constant. 

GMERR 

I 

C 

Solar  and  planetary  gravita 

tional  constant  uncertain- 
ties , 


Local  Variables: 

Variable  Definition 


AXA  Augmented  actual  state  vector.  The 

dimension  and  packing  are  determined 
by  KTY. 


AXE  Augmented  estimated  state  vector. 

Like  AXA,  the  dimension  and  packing 
are  determined  by  KTY, 

INDEX1  Index  identifying  the  position  in  the 

EVEC  matrix  of  the  first  element 
corresponding  to  the  current  augmented 
knowledge  covariance. 

Subroutines  Called:  ZER0M,  CSAMP,  C0PY, 


Hailing  Subroutines: 


Common  Blocks: 


SIMSEP 

C0NST,  TRAJ1 , EPHEM,  TIME,  SIMl,  ST0REC,  W0RK,  ISIMl 
(BLANK) 
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3.4. 9B  Subroutine : 0PSTAT 


Purpose : 


Method : 


To  output  statistics  evaluated  during  the 
Monte  Carlo  mission  simulations. 

After  completion  of  Monte  Carlo  cycles  in 
SIMSEP,  0PSTAT  transforms  variances  and 


covariances  which  characterize  the  statistics 
of  the  "real  world"  trajectories  into  standard 
deviations  and  correlation  coefficients.  The 
standard  deviations,  correlations,  and  means 
are  printed  as  a part  of  the  standard  SIMSEP 
output  whenever  the  number  of  Monte  Carlo 
cycles  is  greater  than  one.  Arrays  of  these 
numbers  are  also  punched  (if  requested  by  the 
user)  in  a format  ready  to  initialize  a sub- 
sequent SIMSEP  run. 


GMC0V(i)  I 


S/C  mass  variance  and  mean 
evaluated  at  the  ith  guid- 
ance event. 


407-C 


0PSTAT-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

DVC0V (i) 

I 

C 

Delta-velocity  covariance 
and  vector  mean  evaluated 
for  impulsive  maneuvers  at 
the  ith  guidance  event. 

DVMAGS(i) 

I 

C 

Delta-velocity  magnitude 
variance  and  mean  for 
impulsive  maneuvers  at  the 
i guidance  event. 

CNC0V (i) 

I 

c 

Thrust  control  correction 
covariance  and  means 
evaluated  for  low  thrust 
maneuvers  at  the  guid- 

ance event. 

NTC(i) 

I 

c 

Number  of  low  thrust  con- 
trols active  for  the  ith 
guidance  event. 

TCC0V (i) 

I 

c 

Control  error  covariance 
and  vector  mean  evaluated 
at^the  target  time  on  the 
i guidance  event. 

TMC0V (i) 

I 

c 

S/C  mass  variance  and  mean 
evaluated  at  the  target 
time  on  the  itfl  guidance 
event . 

TERC0V (i) 

I 

c 

Target  error  covariance  and 
means  evaluated  at  the  tar- 
get time  on  the  guidance 

event . 

NTAR(i) 

I 

c 

Number  of  target  variable 
for  the  i^h  guidance  event. 

MC(i) 

I 

c 

Number  of  Monte  Carlo  cycles 
executed  in  accumulating 
statistics. 

ENDC0V 

I 

c 

Control  error  covariance 
and  vector  mean  evaluated  at 
the  trajectory  end  time 
(TEND) . 

AMASS 

I 

c 

S/C  mass  variance  and  mean 
evaluated  at  the  trajectory 
end  (TEND). 
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Input/  Argument/ 


Variable 

Output 

Common 

advt 

I 

C 

ATHC0V 

I 

C 

KATHC 

I 

c 

Definition 

Delta-velocity  magnitude 
variance  and  mean  evaluated 
for  all  Impulsive  maneuvers. 

Covariance  of  active  thrust 
controls  used  throughout  the 
mission  for  all  low  thrust 
maneuvers  executed. 

Dimension  of  the  ATHCOV 
matrix. 


Local  Variables:  None 

Subroutines  Called:  MAT0UT,  SYMUP,  VARSD 

Calling  Subroutines:  SIMSEP 

Common  Blocks:  SIM1,  ISIMV,  SIM2,  ISIM2 

Logic  Flow: 


None 
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3.4.9C  Subroutine:  REFTRJ 

Purpose : (1)  To  compute  reference  trajectory  conditions, 

e.g.,  state,  mass,  sensitivities,  etc.,  at  the 
guidance  points;  (2)  to  evaluate  reference  tra- 
jectory target  conditions  at  designated  target 
times;  and  (3)  to  compute  the  guidance  matrix 
to  be  used  at  linear  guidance  events. 

Method : REFTRJ  performs  the  trajectory  calculations 

necessary  whenever  INREF  is  read  as  zero  during 
the  $SIMSEP  namelist  input.  These  calculations 
are  done  by  repetitively  calling  either  the  TRAJ 
overlay  or  the  THC0MP  subroutine.  In  addition, 
REFTRJ  prints  and  punches  the  reference  trajec- 
tory data  so  that  they  may  be  used  to  initialize 
subsequent  SIMSEP  runs  (with  INREF  = 1). 

Input /Output : 

Input/  Argument/ 


Variable 

Output 

Common 

Definition 

TGE 

I 

C 

Epoch  of  a guidance  event. 

TTAR 

I 

C 

Designated  target  epoch. 

NGUID 

I 

c 

Number  of  guidance  events. 

NTAR 

I 

c 

Number  of  target  variables. 

NTC 

I 

c 

Number  of  controls. 

IGL 

I 

c 

Guidance  law  flag. 

LSTAR 

I 

c 

List  of  target  variable 
codes . 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

RXGE 

0 

C 

Reference  trajectory  state 
at  the  guidance  event. 

RMGE 

0 

C 

Reference  S/C  mass  at  the 
guidance  event. 

rxtar 

0 

c 

Reference  trajectory  state 
at  the  target  time. 

RMTAR 

0 

c 

Reference  S/C  mass  at  the 
target  time. 

XTARG 

0 

c 

< 

Reference  target  conditions 
at  the  target  time. 

XEND 

0 

c 

Reference  trajectory  state 
at  the  final  trajectory 
time  (TEND). 

MEND 

0 

c 

Reference  S/C  mass  at  the 
final  trajectory  time. 

SMAT 

0 

c 

Sensitivity  or  guidance 
matrix  for  guidance  maneu- 
vers. 

PHI 

0 

c 

State  to  state  transition 
matrix. 

THETA 

0 

c 

Thrust  controls  to  state 
transition  matrix. 

Variables : 

Variable 

Definition 

ETA 

State  to  target  variable  transformation 
matrix. 

gamma 

Linear 

guidance  matrix. 

TMX1 

Temporary  storage  of  intermediary 
calculations . 

Subroutines  Called:  C0PY,  EC0MP,  GUIDMX,  MMAB , MPAK,  TRAJ.,  TC0MP,  THC0MP 

Calling  Subroutines:  S IMS EP 
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REFTRJ-3 


Cgmmpn  Blocks:  C0NST,  EPHEM,  IASTM,  SIMl,  ISIMl,  SIMLAB,  TIME, 

TRAJ1,  TRAJ2,  (BLANK) 
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3.4.9D  Subroutine;  SDAT1 


Purpose : To  read  input  data  from  the  $SIMSEP  namelist  and 

to  initialize  the  trajectory  simulation  mode. 


Method : Once  the  default  values  have  been  initialized,  the 

$SIMSEP namelist  is  read  from  input.  Names,  dimen- 
sions, and  definitions  for  variables  contained  in 
$SIMSEP  are  discussed  in  the  User's  Manual  (Section 
2.4,  page  22)*  The  input  data  are  processed  and 
stored  in  common  blocks  so  that  they  may  be  used  by 
Monte  Carlo  cycle  logic  in  SIMSEF.  Variables  con- 
tained in  this  namelist  control  the  degree  of  data 
preparation  and  computational  operations  performed 
within  the  main  cycle  of  the  program. 

Remarks:  Many  of  the  variables  appearing  in  SDAT1  are  initial- 

ized from  namelist  with  units  specified  in  the  User's 
Manual.  Before  they  are  transmitted  to  other  routines 
and  used  by  the  program,  they  are  converted  to  in- 
ternal units  which  are  kg,  kw,  km,  sec,  km/sec,  and 
radians . 

Input /Output ; 


Variable 

Input/ 

Output 

Namelist/ 

Common 

Definition 

A0K 

I/O 

N/C 

Backup  convergence  tolerance 
for  weak  convergence  tsst. 

CFMA 

I/O 

N/C 

Computer  processing  time  limit 
for  the  current  SIMSEP  run. 

DVMXN 

I/O 

N/C 

Maximum  delta-velocity  magni- 
tude step. 

IN  REF 

I/O 

N/C 

State  vector  apd  trajectory 
parameter  read-in  flag. 

I0UT 

I/O 

N/C 

Print  output  flag. 

IPUNCH 

I/O 

N/C 

Punch  output  flag. 

IRAN 

I/O 

N/C 

Random  number  seed . 

NCYCLE 

I/O 

N/C 

Number  of  Monte  Carlo  cycles 
to  be  run. 
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Input/Output : 


Variable 

Input/ 

Output 

Namelist/ 

Common 

Definition 

NGUID 

I/O 

N/C 

Number  of  guidance  events 
to  be  executed  on  each 
Monte  Carlo  mission  simu- 
lation. 

J2ERR 

I/O 

N/C 

Uncertainty  in  the  J2 
coefficient  in  the 
gravitational  potential 
function. 

PG 

I/O 

N/C 

S/C  control  error  matrix. 

EXVERR 

I/O 

N/C 

Midcourse  velocity  correc- 
tion execution  errors. 

SCERR 

I/O 

N/C 

SEP  and  S/C  errors. 

TCERR 

I/O 

N/C 

Thrust  bias  errors. 

TVERR 

I/O 

N/C 

Thrust  process  noise. 

ADVT 

i/o> 

N/C 

Total  delta-velocity  magni- 
tude statistics. 

ENDC0V 

I/O 

N/C 

Accumulated  S/C  control  error 
statistics  at  TEND. 

AMASS 

I/O 

N/C 

Accumulated  S/C  mass  statis- 
tics at  TEND. 

ATHC0V 

I/O 

N/C 

Accumulated  total  thrust 
control  statistics. 

XEND 

I/O 

N/C 

Reference  trajectory  state 

vector  at  TEND. 
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Input /Output; 


Variable 

Input/ 

Output 

Namelist/ 

Common 

Definition 

MEND 

I/O 

N/C 

Reference  S/C  mass  at  TEND. 

SPFIMP 

I/O 

N/C 

Chemical  propulsion  system 
specific  impulse. 

DVMDOT 

I/O 

N/C 

Chemical  propulsion  system 
mass  flow  rate. 

MC 

I/O 

N/C 

Number  of  previous  Monte 
Carlo  cycles. 

KATHC 

I/O 

N/C 

Dimension  of  the  ATHC0V 
matrix . 

JMAX 

0 

C 

Number  of  the  last  active 
thrust  control  phase  between 
trajectory  times  TSTART  and 
TEND. 

JMIN 

0 

C 

Number  of  the  first  active 
thrust  control  phase  after 
TSTART. 

Local  Variables: 

None 

Subroutines  Called: 

C0PY,  EIGENV,  EPHEM, 

MAT0UT,  SDVAR,  ZER0M. 

Calling  Subroutines: 

DATAS 

Common  Blocks: 

O0NST, 

ISIM2, 

CYCLE,  DYN0S, 
SIMLAB,  TIME, 

EDIT,  EPHEM,  SIM1,  ISIM1,  SIM2, 
TRAJ1,  TRAJ2. 

Logic  Flow: 


S DAT 1-4 


SDATi 


Initialize  Default  Values 
for  #SIMSEF  Variables 


Read  ^SIMSEP 


SDVAR 

Convert  PG  Correlation 
Coefficients  To  a 
Covariance  Matrix 


EIGENV 

Transform  PG  Into  An 
Eigenvector/Eigenva lue 
Representation 


SDVAR  

Convert  EPHERR  Correlation 
Coefficients  Into  A 
Covariance  Matrix 


EIGENV 

Transform  EPHERR  Into  An 
Eigenvector /Eigenvalue 
Representation 


Convert  SCERR,  TCERR, . and 
TVERR  To  Internal  Units 
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0 


3.4. 9E  Subroutine:  SDAT2 


Purpose : 


Method : 


Remarks : 


To  read  input  data  from  the  $GUID  namelist  and  to 
define  the  guidance  philosophy,  guidance  control 
variables,  targets,  etc.,  at  each  guidance  event. 

Since  the  number  of  guidance  events  considered  for  a 
given  SIMSEF  run  has  been  specified  by  the  NGUID  vari- 
able which  was  read  in  SDAT1,  the  SDAT2  subroutine 
reads  the  $GUID  namelist  NGUID-times . Names,  dimensions, 
default  values,  and  definitions  for  the  variables  con- 
tained in  $GUID  are  discussed  in  the  User's  Manual 
(Section  2.4,  page  37).  The  input  data  from  $GUID  are 
stored  in  common  blocks  for  subsequent  usage  during 
the  execution  of  guidance  maneuvers.  The  user  specifies 
through  input  the  type  of  guidance,  duration  of  the 
guidance  event,  target  variables  and  controls. 

Variables  appearing  in  SDAT2  are  initialized  from  name- 
list  in  external  "user1’  units.  As  was  done  in  SDAT1, 
these  variables  are  converted  to  internal  units  before 
being  transmitted  to  the  rest  of  the  program. 


Input/Output: 


Variable 


Input/  Namelist/ 

Output Common 


Definition 


TGUID  I 

TGE  0 

XGREF  I 

RXGE  0 

MGREF  I 

RMGE  0 

S I 

SMAT  0 

H I 

IJH  0 


N 

C 

N 

C 


Guidance  event  epoch 


Reference  trajectory  state 
vector  at  the  guidance 
point . 


N 

C 


; 


N 

C 

N 


] 


S/C  mass  at  the  guidance 
point . 


Sensitivity  or  guidance 
matrix. 


Array  of  on/off  flags  used  to 
identify  active:  thrust  con- 
trols at  a guidance  event. 


C Matrix  of  active . control 

variable  indices. 


HPERT  0 C 


Numerical  perturbation 
values  used  in  computing 
numerically  differenced 
sensitivities. 
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Input /Output : 


Variable 


Input/  Namelist/ 

Output Common 


Definition 


UWATE 

C0NWT 

IGUID 

IGL 

NMAX 

ITMX 


I 

0 

I 

0 

I 

0 


N 

C 

N 

C 

N 

C 


} 

} 

} 


Control  variable  weights. 


Guidance  law  flag. 


Maximum  number  of  iterations 
in  the  nonlinear  guidance 
algorithm. 


IASTM  I 

I STM  0 

NTAR  0 


N 

C 

C 


Flag  indicating  whether 
trajectory  sensitivities  are 
are  to  be  computed  by 
numerical  differencing  or 
integrated  variational 
equations • 

Number  of  target  variables. 


NTC 

TTARG 

TTAR 

TARGET 

XTARG 

XTREF 

RXTAR 

MTREF 

RMTAR 

TART0L 

T0L 

ITARGT 

LSTAR 


0 


C 


Number  of  control  variables. 


I 

0 

I 

0 

I 

0 

I 

0 


N 

c 

ft 

c 

N 

c 

N 

C 


} 

} 

} 

} 


Target  epoch. 


Target  variables  evaluated 
on  the  reference  trajectory. 


Reference  trajectory  state 
at  the  target  epoch 


S/C  mass  at  the  target 
epoch. 


I 

0 


N 

C 


1 


j 


Target  variable  tolerances. 


I 

0 


N 

C 


" 

► 


Target  variable  selection 
flags . 
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Input /Output: 


Variable 


Input/ 

Output 


Namelist/ 

Common 


Definition 


PS 

I 

N 

J event . 

cxs 

I 

N 

I 

BLANK 

0 

c 

Eigenvectors  and  eigenvalues 

KDIMEN 

I 

N 

Dimension  of  the  augmented 
” knowledge  covariance . 

KDIM 

0 

c 

KTER 

I 

N 

Option  flag  for  computing 
* target  errors. 

KTERR 

0 

C 

CG0VG 

I 

■ ] 

Accumulated  control  error 
statistics  at  the  guidance 

GCC0V 

0 

C J 

point. 

GMSC0V 

I 

K ] 

Accumulated  S/C  mass 
r statistics  at  the  guidance 

GMC0V 

0 

c J 

point. 

CNTC0V 

I 

■ 1 

Accumulated  active  thrust 
v control  error  statistics. 

CNC0V 

0 

c J 

DVMCOV 

I 

■ ] 

1 Accumulated  delta-velocity 

y vector  statistics  at  the 

DVCOV 

0 

c J 

guidance  event. 

DVMAG 

I 

N 

Accumulated  delta-velocity 
► magnitude  statistics  at  the 

DVMAGS 

0 

C 

J 

guidance  event. 

cogrvT 

I 

N | 

Accumulated  control  error 
f statistics  at  the  target 

TCO0V 

0 

c 

point . 

TMSCtfV 

I 

■ ] 

| Accumulated  S/C  mass 

L statistics  at  the  target 

TMCOV 

0 

c J 

point . 

TARC0V 

I 

« ' 
1 

) Accumulated  target  error 

r statistics. 

TERO0V 

0 

C i 

■ 
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Input /Output  : 

Variable 

Input/ 

Output 

Namelist/ 

Common 

Definition  >, 

MSAMP 

NSAKP 

I 

0 

N 

C 

| Number  of  previous  Monte 

i-  Carlo  samples  on  the 

| accumulated  statistics. 

MTPH 

0 

C 

Thrust  phase  number  at  a 
guidance  event. 

I CYCLE 

0 

c 

Recycle  flag. 

UNTAR 

0 

C 

Vector  of  target  variable 
conversion  factors. 

Local  Variables: 

Variable 

Definition 

PP 

Temporary  storage  for  the 
augmented  knowledge  covar- 
iance matrix . 

IMAN 

Guidance  event  counter. 

INDEX 1 

Index  marking  the  position  in 
blank  common  after  which  eigen 
vectors  corresponding  to  a par 
ticular  augmented  knowledge  co 
variance  are  stored. 

INDEX 2 

Index  like  INDEX1  except  it 
marks  where  eigenvalues  are 
stored . 

Subroutines  Called: 

C0PY,  EIGENV,  I COPY, 
SYML0,  SYMUP,  ZER0M. 

MAT0UT,  MPAK,  MUNPAK,  SDVAR, 

Calling  Subroutines: 

DATAS 

Common  Blocks: 

CYCLE, 

SIMLAB, 

EDIT,  EPHEM,  IASTM,  SIM1,  ISIM1,  SIM2,  ISIM2, 
TIME,  TRAJ1,  TRAJ2,  (BLANK). 

Logic  Plow: 


SDAT2-6 


MSAMP£0 


Convert  Accumulated 
Statistical  Data  CC0VG , 
7NTC0V , DVMC0V  ,TARC0V , ETC . Iot< 
Covariance  Matrices  and  Load 
Them  Into  Common  Storage 


Pack  P,  CXS,  and  PS  Into  PP 


SBVAR 


Convert  PP  Into  A 
Covariance  Matrix 


EIGENV 


Transform  PP  Into  An 
Eigenvector/Eigenvalue 
Representation  Arid 
Store  in  (BLAHK) 


IMAN& 


> 


Convert  Accumulated  Statistical  Data  THC0V 
And  AFC0V  Into  Covariances  and  Load  Them 
Into  Common  Storage 


RETURN 
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3.4.10A  Subroutine:  SET  (IST0RE) 

£.y.rP°.se  • To  set  and  store  physical  parameters  (ephemeris, 

gravitational,  etc.)  and  SEPS  parameters  (thrust 
controls,  mass,  exhaust  velocity,  etc.)  needed 
by  the  trajectory  integration  routine  for  generat 
ing  the  actual,  estimated,  and  reference  trajec- 
tories. 

Method : SET  simply  performs  multiple  copy  operations  in 

transferring  the  working  values  used  by  the 
trajectory  integrator  into  designated  storage 
arrays,  SI,  S2  and  S3.  By  calling  SET  with 
IST0RE  equal  to  +1,  +2  or  +3,  the  corresponding 
SI,  S2  or  S3  array  is  equated  to  whatever  is  in 
the  regular  working  arrays.  If  IST0RE  equals  44, 
all  three  S-arrays  are  set.  When  SET  is  called 
with  IST0RE  equal  to  -1,  -2,  or  -3,  then  the 
working  arrays  are  re-set  to  whatever  is  stored 
in  SI,  S2  or  S3,  respectively. 

Remarks : This  routine  is  essential  to  SIMSEP  in  that  it 

allows  the  program  to  use  the  same  trajectory 
integrator  to  evaluate  each  of  the  different 
types  of  trajectories  needed  for  a mission  simu- 


lation. 
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Input/Output : 


Variab les 

Input/ 

Output 

Argument/ 

Common 

Definition 

IST0RE 

I 

A 

Flag  controlling  the  SET 
logic  flow. 

ENGINE (1)  I/O 
(=P0WERO) 

C 

Electric  power  at  1 A.U. 

ENGINE (10)  I/O 
(=EXHVEL) 

C 

Thrust  exhaust  velocity. 

ENGINE (11)  I/O 
(-THREFF) 

C 

Thruster  efficiency. 

ENGINE (15) 
(=CRA) 

I/O 

C 

Radiation  pressure  coeffi- 
cient. 

SCMASS 

I/O 

C 

SEPS  mass. 

SMASS 

I/O 

C 

Solar  gravitational 
constant . 

PMASS 

I/O 

C 

Planetary  gravitational 
constants . 

NTPHAS 

I/O 

c 

Current  thrust  control 
phase  number. 

THRUST 

I/O 

c 

Thrust  control  array. 

SSM1 

I/O 

c 

Stored  solar  gravitational 
constant . 

SSCM1 

I/O 

c 

Stored  SEPS  mass. 

SEXV1 

I/O 

c 

Stored  thrust  exhaust 
velocity. 

STEFFI 

I/O 

c 

Stored  thruster  efficiency. 

SCRA1 

I/O 

c 

Stored  radiation  pressure. 

SP01 

I/O 

c 

Stored  electric  power  to 
1.  A.U. 

SPM1 

I/O 

c 

Stored  Earth  gravita- 
tional constants. 

STHRT1 

I/O 

c 

Stored  thrust  controls. 

Page  410  has  been  deleted 
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SET-4 


(Comment:  In  addition 

are  also  corresponding 

Local  Variables: 
Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 


to  these  storage  arrays  and  variables,  there 
S-2  and  S-3  arrays.) 

None 

C0PY 

SIMSEP,  NLGUID 

EPHEM,  SIM1,  ISIH1,  ST0REC,  TRAJ1,  TRAJ2 


Logic  Flow 


SET- 5 


r a 

m 

( RETURN  b 

4 

ISTORE :0 

> > 

L1  J 

IST0RE 


Store  SMASS,  SCMASS, 
EXHVEL,  P0WERO,  THREFF, 
CRA,  NTPHAS,  PMASS, 
XEPH,  CSAX,  EMN,  CECC, 
CINC,  C0MEG , C0MEGT, 
CMEAN,  and  THRUST  into 
the  S-l  Arrays. 


1STORE :4 


Store  SMASS,  SCMASS, 
EXHVEL,  P0WERO , THREFF, 
CRA,  NTPHAS,  PMASS , 
XEPH,  CSAX,  EMN,  CECC, 
CINC,  C0MEC,  C0MEGT, 
CMEAN,  and  THRUST  into 
the  S-2.  Arrays. 


Store  SMASS,  SCMASS, 
EXHVEL,  P0WERO,  THREFF, 
CRA,  NTPHAS,  PMASS, 
XEPH,  CSAX,  EMN,  CECC, 
CINC,  C0MEG,  C0MEGT, 
CMEAN,  and  THRUST  into 
the  S-3  Arrays. 
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3.4. 10B  Subroutine : 
Entry  Points: 

Purpose : 


Method : 


SPRNT1  (XA,  XE,  XREFO,  IC,  IMAN) 

SPRNT2,  SPRNT3,  SPRNT4 

To  print  actual , estima ted , and  reference 
trajectory  data  computed  during  Monte  Carlo 
mission  simulations. 

SPRNT1,  or  one  of  its  various  entry  points, 
is  called  from  SIMSEP  whenever  printout  of 
trajectory  information  is  desired.  A call 
to  SPRNTl  results  in  the  "Output  Data  for 
the  Actual  Trajectory  Initialization".  (See 
the  sample  case  in  the  User’s  Manual,  Pages 
119  through  132.)  SPROTZ  generates  the 
"Output  Data  for  Guidance  Event"  which 
includes  printout  for  actual,  estimated, 
and  reference  trajectory  data.  SPRNT3 
generates  the  "Output  Data  at  the  Designated 
Target  Time"  when  KTER  = 1 and  the  corrected 
trajectory  is  propagated  after  a guidance 
event.  At  the  end  of  each  Monte  Carlo  mission 
simulation,  SPRNT4  is  called  to  display  the 
"Monte  Carlo  Mission  Summary". 


Input/Output : 


Input/  Argument/ 


Variable 

Output 

Common 

Definition 

XA 

I 

A 

Current  actual  S/C  state. 

XE 

I 

A 

Current  estimated  S/C 
state. 
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Input/ 

Argument/ 

Variable 

Output 

Common 

Definition 

XREFO 

I 

A 

Current  reference  S/C 

state , 

IC 

I 

A 

Current  Monte  Carlo  cycle 
number . 

IMAN 

I 

A 

Current  guidance  event 
number . 

TCERR 

I 

C 

Thrust  bias  errors. 

SC  ERR 

I 

C 

S/C  and  SEP  errors. 

GMERR 

I 

c 

Gravitational  constant 

errors. 

GTAU1 

I 

c 

Negative  reciprocal  of  the 
- correlation  times  for  the 

GTAU2 

I 

c 

thrust  process  noise. 

TN0ISE 

I 

c 

Vector  of  random  thrust 
control  perturbations. 

TGE 

I 

c 

Guidance  event  epoch. 

TTAR 

I 

c 

Target  epoch. 

XTARG 

I 

c 

Reference  target  variables 

UNTAR 

I 

c 

Vector  of  target  variable 
conversion  factors. 

SSCM1 

I 

c 

i 

I Actual,  estimated,  and 

SSCM2 

I 

c 

f reference  S/C  mass. 

SSCM3 

I 

c 

) 

SEXV1 

I 

c 

j 

Actual,  estimated,  and 

SEXV2 

I 

c 

* reference  exhaust  velocity 

SEXV3 

I 

c 

J 

SPOl 

I 

c 

Actual,  estimated,  and 
' reference  electric  power. 

SP02 

I 

c 

SP03 

I 

c 

* 

STEFFI 

I 

c 

j 

Actupl,  estimated,  and 
k reference  thruster 

STEFF2 

I 

c 

! 

-STEFF3 

I 

c 

j 

efficiency. 
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Input/  Argument/ 

Variable  Output Common 


Definition 


SCRA1 

SCRA2 

SCRA3 

STHRT1 

STHRT2 

STHRT3 

SSM1 

SSM2 

SSM3 

SPMl 

SPM2 

SPM3 


I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


} 

} 

} 

} 


Actual,  estimated,  and 
reference  radiation  pressure 
co-efficient. 

Actual,  estimated,  and 
reference  thrust  controls. 


Actual,  estimated  and 
reference  solar  gravitational 
constant. 

Actual,  estimated,  and  refer- 
ence gravitational  constant 
for  the  Earth. 


Local  Variables : 


Variable 


Definition 


DXE 

Vector  deviation  of  the  estimated 
state  from  the  reference  and/or  the 
actual. 

DXA 

Vector  deviation  of  the  actual  state 
from  the  reference. 

ELACT 

ELEST 

ELREF 

} 

Keplerian  elements  corresponding  to 
the  actual,  estimated,  and  reference 
Cartesian  states  of  the  S/C. 

EMASS 

Actual  S/C  mass  evaluated  at  TEND. 

Subroutines  Called: 

C0NIC , 

SUB 

Calling  Subroutines: 

SIMSEP 

Common  Blocks: 

C0NST, 

TIME, 

DYN0S , EPHEM,  SIM1,  ISIM1,  SIMLAB,  ST0REC 
TRAJ1,  TRAJ2,  (BLANK) 

Logic  Flow 


None 
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3.4.11 

Purpose : 
Method : 


Subroutine : STAT  (XA,  XR,  N,  N1 , AC0V,  M,  PC^V) 

To  compute  a covariance  matrix  and  mean, 
recursively,  from  a sequence  of  error  vectors. 

f_U| 

For  the  ^ Monte  Carlo  cycle,  an  error  vector, 
X^,  is  computed  as  the  difference  between  an 
actual  and  a reference  vector.  This  error 
.Vector  updates  the  previous  mean  based  on  (M-l) 
samples  according  to  the  equation 


" <*h  + CM-D  X „_!>/* 


Input/Output : 

Variable 

XA 

XR 

N' 

N1 


for  M = 1,2,  3,  ....  The  covariance  matrix  is 
also  updated  by  the  relation, 

°M  = tn]CM-l  + [ *M-1  *M-1  ] 

+ M-i  Vm  " S7  Vm 

for  M = 2,  3,  4,  . , where  C^_^  is  the  previous 

covariance  matrix  and  the  new  covariance. 

M 


Input/ 

Output 

Argument/  . 
Common 

Definition 

I 

A 

Actual  sampled  vector. 

I 

A 

Reference  vector. 

I 

A 

Dimension  of  XA  and  XR 

X 

A 

Nl  — N + 1. 
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Variable 

Input/ 

Output 

Argument/  ' 
Common 

Definition 

AC0V 

I 

A 

A-prior  covariance  matrix 
and  mean,  based  on  M-l 
samples.  This  is  a (NxNl) 
array  with  the  variances 
and  covariances  being 
stored  in  the  first  N- 
columns  and  the  means 
being  stored  in  the  Nl- 
columns. 

M 

I 

A 

Number  of  Monte  Carlo  sam- 
ples used  to  formulate  the 
updated  covariance  matrix. 

PC0V 

I 

A 

Updated  output  covariance 
matrix  and  vector  of  means, 
The  storage  is  in  the  same 
format  as  AC0V.  AC0V  and 
PC0V  may,  in  fact,  share 
the  same  core  locations. 

Variables : 

Variable 

Definition 

X 

XX 

XXT 


Error  vector,  X = XA  - XR. 

Temporary  storage  for  the  new  means. 

Temporary  storage  for  the  outer  prod- 
uct of  two  vectors. 


Subroutines  Called:  SUB 

Calling  Subroutines:  SIMSEP 


Common  Blocks : 


W0RK 
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3.4.12  Subroutine: 


THCPND  (XIN,  MIN,  NPRIN,  NATC,  IJH,  TG0,  THALT, 
IMAN,  X0UT,  M0UT,  THETA,  PHI) 


Purpose: 


Method : 


Remarks : 


To  compute  the  partials  of  state  variable  changes 

with  respect  to  thrust  control  perturbations,  i.e., 

the  ® matrix,  by  numerical  differencing, 
u 

Small  perturbations  are  forced  to  each  active 
control  variable  and  a trajectory  is  propagated 
to  the  designated  target  time.  The  final  state 
vector  of  each  variant  trajectory  is  differenced 
with  the  standard,  or  nominal,  state  to  form 
numerical  approximations  for  the  partial  deriva- 
tives . 

This  routine  is  analogous  in  function  and  format 
to  THC0MP,  a utility  routine.  However,  it  is 
used  exclusively  in  SIMSEP  in  the  linear  and 
nonlinear  guidance  algorithms. 


Input/Output : 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

XIN 

I 

A 

Initializing  S/C  state 

vector  (position  and  velocity) 

for  the  trajectory  propagations. 

MIN 

I 

A 

Initial  S/C  mass. 

NPRI 

I 

A 

Body  number  for  the  primary 
body. 

NATC 

I 

A 

Number  of  active  thrust  con- 
trols . 

IJH 

I 

A 

Matrix  of  thrust  control  indices 
which  identify  the  active  thrust 
controls  to  be  used  for  numerica 
differencing. 
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Variable 

TG0 

THALT 

IMAN 

X0UT 

M0UT 

THETA 

PHI 

L0CTC 

UREL 

VREL 

HPERT 

Local  Variables: 
Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks : 


THCPND-2 


Input/  Argument/ 

Output Common Definition 


I A Initial  trajectory  time. 

I A Pinal  trajectory  time. 


I A Maneuver  number. 

0 A Output  S/C  state  on  the 

nominal  trajectory  evaluated 
at  THALT. 


0 A 

0 A 


I C 


I c 

I c 

I c 


None . 


Pinal  S/C  mass. 

Output  matrix  of  state 
changes  w.r.t.  control 
changes . 

Output  matrix  of  final 
state  changes  w.r.t.  initial 
state  changes. 

Location  in  blank  common  of 
the  state  transition  matrix,  ' 

S/C  position  vector  at  final 
trajectory  time. 

S/C  velocity  vector  at  final 
trajectory  time. 

Array  of  numerical  perturba- 
tions to  be  applied  to  each 
thrust  control  as  identified 
by  the  IJH  array. 


C0PY,  IC0PY,  IZER0M,  0VERLAY  (TRAJ) 


NLGUID,  REFTRJ 

(BLANK),  C0NST,  TIME,  TRAJ1,  TRAJ 2 , SIM1,  ISIM1, 
W0RK 
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3.5 

Purpose : 
Remarks : 


Subroutine : TRAJ 

To  control  the  overall  trajectory  initialization 
and  propagation. 

Since  TRAJ  is  used  by  the  three  modes,  it  must 
be  capable  of  reproducing  the  same  trajectory 
for  each  mode,  independent  of  the  augmented  state 
form,  event  times  or  print  times.  Special  prob- 
lems arise  when  the  equations  to  be  propagated 
include  the  transition  matrix  or  covariance 
between  events.  For  example,  at  the  beginning 
of  an  event  either  the  transition  matrix  must  be 
reset  to  an  identity  or  an  updated  covariance 
must  be  given  to  TRAJ.  To  solve  these  problems, 
logic  was  incorporated  into  TRAJ  to  make  use  of 
event  logic  in  the  subroutine  PATH  with  an  entry 
point  FLIGHT. 

Beginning  at  the  trajectory  epoch  t^,  the  tran- 
sition matrix  or  covariance  is  initialized  and 
is  propagated  to  the  first  event  (E^).  MAPSEP 
logic  returns  to  the  calling  routine  which  per- 
forms its  operations*  Upon  reentering  TRAJ,  the 
transition  matrix  or  covariance  is  again  reini- 


tialized and 
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propagated  from  E^  to  E^,  In  order  to  propa~ 
gate  the  transition  matrix  or  covariance  from 
E2  to  E3  and  preserve  the  trajectory  grid,  the 
special  logic  in  TRAJ  calls  FLIGHT  to  propagate 
the  appropriate  matrix  from  E2  to  t^.  Then  the 
spacecraft  state  is  propagated  from  tQ  to  t^. 

Now  having  the  state  and  transition  matrix  or 
covariance  at  t^  the  appropriate  matrix  is  prop 
agated  to  E^.  This  process  is  continued  until 
all  events  have  been  satisfied. 


Input/Output : 

Input/  Argument/ 

Variable Output Common Definition _ 

ICALL  I C - 1,  initialize  the  trajec- 

tory and  propagate  to 
an  event  or  stopping 
condition. 

= 2,  initialize  the  trajec- 
tory only. 

- 3,  propagate  from  a pre- 
viously defined  point 
in  the  trajectory. 

C “ 1,  propagate  the  state 

and  transition  matrix, 
, propagate  the  state. 

, propagate  the  state 
and  state  covariance 
matrix. 


INTEG 


I 


= 2 
= 3 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

DSC 

I 

C 

The  blank  common  array. 

The  following  flage  will  be 
used  to  locate  specific 
information. 

L0CET 

I 

c 

Previous  event. 

L0CX 

I 

c 

Trajectory  time. 

L0CH 

I 

c 

Integration  stepsize. 

L0CTC 

I 

c 

State  transition  matrix  or 
Covariance . 

L0CF0 

I 

c 

Deviations  (from  conic)  of 
state  (reference). 

L0CDY 

I 

c 

Deviations  (from  conic)  of 
state  derivatives  (reference, 

L0CYT 

I 

c 

Deviations  of  state  (event). 

L0CDT 

I 

c 

Deviations  of  state  deriva- 
tives (event). 

MEQS 

I 

c 

Dimensions  of  the  covariance 
or  transition  matrix. 

'TEVNT 

I 

c 

Next  event  time. 

IAUGDC 

I 

c 

Flags  used  to  augment  the 
covariance  or  transition 
matrix. 

Local  Variables: 

Variable 

Definition 

TEVNTS 

Stored 

value  of  TEVNT. 

IAUGDS 

Stored 

value  of  IAUGDC. 

Subroutines  Called 

: . 

PATH.  FLIGHT,  IDENT,  C0PY,  Lri, 

ai>fm  . 
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Calling  Subroutines;  T0PSEP,  G0DSEP,  SIMSEP 

Common  Blocks:  TRA J2 , W0RK,  (BLANK),  C0NST,  EDIT,  EPHEM,  TIME, 

TRAJ1 


TRAJ-6 
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TRAJ-7 
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3.5.1  Subroutine:  DN0ISE  (T) 


Entry  Point: 
Purpose : 

Method : 


N0ISE 

To  compute  thrust  acceleration  perturbations 
due  to  time-varying  process  noise. 

A vector  of  thrust  control  perturbations,  S u, 
is  computed  during  the  trajectory  integration 
at  the  beginning,  middle,  and  end  of  each  inte- 
gration step.  The  time  correlated  thrust  noise 
is  assumed  to  be  a Gauss -Markov  sequence  accord- 
ing to  the  equation 


s%+1  = A s%  +(* 


—i+1  , 


where 


f _ At/T. 


A = 


A t/T, 


At/T 


N 


and  = t.+-  - t . The  factors  , T2>  ...» 

T are  the  correlation  times  associated  with 
N 

each  stochastic  process,  £u^.  T^e  vector  & H. 
is  assumed  to  remain  constant  over  the  interval 
A t with  its  effect  on  8 


being  diminished 
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by  the  exponential  decay  terms  in  A,  i-s 

a vector  of  independent  random  variables  which 
have  Gaussian  distributions.  The  standard' 

is  given  by 

-ZAt/  h 

U-e  J ) <r 


deviation,  O'gj-, 


’"j 


in  order  to  satisfy  the  requirement  that  the 
process  be  stationary. 


Input/Output : 


Variable 


Input/  Argument/ 

Output Common 


Def ini tion 


T I A 

GTAU1  I C 

GTAU2  I C 

TVERR  I C 

IRAN  I C 

TN0ISE  I/O  C 


Current  trajectory  time.  . 

Negative  reciprocal  of  the 
correlation  times  for  the 
first  process. 

Negative  reciprocal  of  the 
correlation  times  for  the 
second  process. 

One -sigma  values  for  the 
time-varying  thrust  control 
errors . 

Random  number  seed. 

•i 

Vector  of  thrust  control 
per turba  t ions  o 


Local  Variables: 

Variable 


Definition 


T1 


Trajectory  time  at  the  previous  point 
of  thrust  noise  evaluation. 
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Variable 

H 

Subroutines  Called: 
Calling  Subroutines i 


Definition 


Time  increment  since  the  previous 
thrust  noise  evaluation. 


RNUM 

EP,  SIMSEP 

TRAJ1,  DYN0S  TRAJ2 
> 


Common  Blocks: 
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3.5.2  Subroutine 

: DPHI  (T,  DS,  DSTM,  M 

, N,  L0C) 

Purpose: 

To  compute  the  time 
Matrix  (0) 

derivative  of  the  State  Transition 

Me  thod : 

• 

0 “ F 0 

Input /Output : 

Variable 

Input/  Argument/ 

Output  Common 

Definition 

IAUCDC 

I C 

Flag  indicating  the  augmentation 
of  the  SIM  and  covariance  Matrix. 

T 

I A 

Trajectory  time 

DS 

I A 

Independent  variables 

DSTM 

0 A 

Differential  equations 

M 

I A 

Number  of  rows  in  DS  and  DSTM 

N 

I A 

Number  of  columns  in  DS  and  DSTM 

LQ(E 

I A 

Routing  flag 

INTEG 

I C 

Set  = 1 Propagate  the  State  and 
Transition  Matrix 
Set  = 2 Propagate  the  State 
Set  = 3 Propagate  the  State  and 
State  Covariance 

IRECT 

I c 

Index  used  to  check  whether  the 
current  call  to  DPHI  is  for  rectifi- 

cation  purposes  only  (i.e.  IRECT  -1) 

Local  Variables: 

IAUGS  Index  used  to  check  whether  the  F matrix  needs  to  be 

augmented . 

Calling  Subroutines : NUMIN 

Subroutines  Called:  M0TI0N,  L0ADFM,  GRAVAR 

Common  Blocks:  TRAJ2 


32 


Logic  Flow: 


DPHI-2 


Return 
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3.5.3 
Purpose : 


' Method : 


Subroutine ; EP  (T,  CMASS) 

To  compute  the  effective  low  thrust  accelera- 
tion vector  and  matrix  of  partial  deviatives 
for  transition  matrix  or  covariance  propagation 
in  a control  phase. 

After  the  available  thruster  power,  orbital 
eccentric  anomaly,  and  thrust  policy  type 
are  computed,  the  following  sequence  of 
parameters  is  computed  (assuming  non-coast 
policy) : 

o thrust  acceleration  magnitude  (ACCEL), 

o thrust  pointing  angles  (either  AIN  and 
A0UT,  or  PITCH  and  YAW),  and  their  noise 
contributions  (if  SIMSEP), 

o body  thrust  acceleration  vector  (ASC) , 

o rotation  matrix  from  body  to  inertial 
frame  (R0TMAT ) , 

o inertial  thrust  acceleration  (THRACC), 

o rotation  matrix  from  thrust  controls 
to  inertial  thrust  acceleration  (GT) . 


See  also  Analytic  Manual,  Section  4.1 


Pages  434  and  435  have  been  deleted. 
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Input/Output ; 


Input/ 

Variable  Output 

T I 

CMASS  I 

EXHVEL  I 


NTPHAS  I 

WP0WER  0 

UREL  I 

URELM  I 

N0ISED  I 

THRUST  I 


A1  I 

EZER0  I 


Argument/ 

Common Definition 


C Trajectory  time  in  seconds. 

C Current  spacecraft  mass. 

C Exhaust  velocity  (c), 

(Equivalence^  to  ENGINE (10), 
Thruster  efficiency  (q), 
(Equivalenced  to  ENGINE (11). 

C Current  thrust  phase  number. 

C Power  available  (P), 

C Heliocentric  position 

vector. 

C Position  magnitude  array. 

C Flag  that  causes  EP  to  add 

noise  to  the  controls. 

C Matrix  that  contains  a set 

of  controls  for  each  seg- 
ment. (THRUST  (i,  NTPHAS)) 
where  i is  the  desired 
information  for  the  NTPHAS 
phase . 

i = 1,  thrust  policy 

i = 2,  phase  end  time  in 
seconds 

i = 3,  thrust  scale  factor 

i = 4 , 5,  6,  7,  9,  10 
thrust  policy  coef- 
ficients 

i = 8,  number  of  thrusters 

C S/C  mean  motion. 

C Reference  eccentric 

anomaly. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

PHAS 

I 

C 

Phase  angles  for  thrust 
controls . 

PITCH 

0 

C 

Thrust  pitch  angle. 

YAW 

0 

c 

Thrust  yaw  angle. 

ZK 

I 

c 

Reference  orientation  vector 

GT 

0 

c 

Transformation  matrix  from 
thrust  controls  to  ecliptic. 

THRACC 

0 

c 

Thrust  acceleration. 

UTRUE 

I 

c 

Position  vector  relative 
to  the  primary  body. 

VTRUE 

I 

c 

Velocity  vector  relative 
to  the  primary  body. 

Variables : 

Variable 

Definition 

ACCEL 

Thrust 

acceleration. 

AIN 

In-Orbit  plane  thrust  angle. 

A0UT 

Out  of  plane  thrust  angle. 

ASC 

Thrust  acceleration  vector  (body 
coordinates) 

EAN0M 

Eccentric  anomaly. 

R0TMAT 


Transformation  matrix  from  body  to 
ecliptic . 


ITYPE 

DELTAT 


Thrust  policy  for  the  NTPHAS  segment  - 
THRUST  (1,  NTPHAS). 

Time  from  the  beginning  of  the  control 
phase . 


Subroutines  Called: 


Calling  Subroutines: 
Calling  Blocks: 


ANGM0D , P0WER,  DN0ISE,  UNITV,  UXV,  MMAB,  NEGMAT, 
ZER0M 

M0TI0N,  DYN0 

C0NST,  EPHEM,  TRAJ1,  TRAJ2 , W0RK,  ENC0N 


Logic  Flow: 


None 


Pages  438  and  439  have  been  deleted. 
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3.5.4 
Purpose : 

Method : 


Subroutine : EPHEM  (N0,  DJ,  R,  V) 

To  compute  the  heliocentric  position  and 
velocity  vectors  of  a given  planet  or  body* 
The  orbital  elements  (a,  e,  i,  & M)  of 

the  desired  body  are  computed  from  time  vary 
ing  expressions, . for  example,  the  semi -major 
axis 


a(t)  = a 


Vj 


Vj 


a3tJ 


where  a is  the  value  at  the  ephemeris  epoch 
o 

1900,  January  0*5,  t^  is  the  time  from  the 
epoch,  and  a^,  a^,  are  constant  coefficients. 

t.  is  measured  in  days  for  all  elements  except 

J 

mean  anomaly  of  the  planets  where  t,.  is  measured 
-4 

in  units  of  10  days.  After  the  osculating 
orbital  elements  are  computed,  they  are  trans- 
formed into  cartesian  position  and  velocity 
vectors . 


A unique  case  occurs  when  EPHEM  is  used  to 
compute  the  position  and  velocity  vectors  of 
the  earth’s  moon.  The  position  (r^,)  and 
velocity  (Vg)  vectors  of  the  earth  are  com- 
puted and  added  to  the  position  (r^)  and 

velocity  0O  vectors  of  the  moon  relative 
— tr 
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to  earth.  The  heliocentric  position  (r)  and 
velocity  (V)  are 


£ " l£  + rM 


v - v„  + Y„ 


Input/Output: 

T7  a-w*  4 Q 1 A 

Input/ 
Ou  t pu  t 

Argument/ 

Common 

Definition 

VaL  la  Dlt- 

N0 

I 

A 

Number  of  the  planet  for 
which  r and  v are  desired. 

DJ 

I 

A 

Trajectory  time  in  Julian 
Days  from  launch. 

R 

0 

A 

£• 

V 

0 

A 

V. 

SMASS 

I 

C 

Gravitational  constant  of 
the  sun. 

PMASS 

I 

C 

Array  of  gravitational 
constants  for  the  planets 
and  the  moon. 

CSAX 

I 

C 

Semi-major  axis  constants 

(a) 

CESS 

I 

c 

Eccentricity  constants  (e), 

CINC 

I 

c 

Inclination  constants  (i)» 

C0MEG 

I 

c 

Longitude  of  the  Ascending 
Node  constants  (jft  ). 

C0MEGT 

I 

c 

Longitude  of  Periapsis 
constants  (<£) . 

CMEAN 

I 

c 

Mean  Anomaly  constants  (M) 
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Input/  Argument/ 

Variable Output Common 

EMN  I c 


PI  I 

DJI 900  I 

Local  Variables: 

Variable 

XPLAN 

NP 

PI2 

A 

E 

XI 

0MEGA 

S0MEGA 

XMEAN 


Definition 

Array  of  constants  for  the 
moon . 

1-4  Longitude  of  the  Ascend 
ing  Node  constants. 

5-8  Longitude  of 

Periapsis  constants. 

9-12  Mean  Anomaly  constants. 


13 

Inclination  constants. 

14 

Eccentricity  constants. 

15 

Semi-major  axis  con- 
stants . 

c 

3. 

14159.  ..o.(tf) 

c 

2415020. 

Definition 

Array  used  to  store  r^,  and  v^. 

Planet  code,  initially  set  equal  to 
N0. 

2L 

2 ' 

a„ 

e, 

i. 

n 

a -«  = « 

M. 
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Variable 

GMU 

P0LY3 

P0LY1 

D 

DD 

T 

Subroutines  Called: 
Calling  Subroutines: 


Definition 

SMASS  + PMASS(NP),  for  the  planets. 
PMASS  (3)  + PMASS (11) , for  the  moon. 

Statement  function  that  performs 
°(i(t)  = ai  + (bi  + 

(ci  + di 

Statement  function  that  performs 
^(t)  = + b.  tj 

Days  from  1900. 

D/10000. 

D/36525. 


CARTES 

S0LAR 

C0NST,  EPHEM 


Common  Blocks: 
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3.5.5A  Subroutine : FIND 

Entry  Points:  FIND1 , FIND3 

Purpose : (1)  To  compute  the  location  in  Blank  Common  arrays 

that  will  be  used  by  TRAJ  and  the  number  of  equa- 
tions to  be  integrated,  (2)  to  copy  integrated 
parameters  into  mode  accessible  locations,  and  (3) 
to  initialize  the  F matrix. 


Method ; None 

Remarks : All  L0CXX  variables  indicate  locations  within 

Blank  Common 


Input / Output : 


Input / 

Variable Output 


Argument/ 

Common 


Definition 


L0CS 

I 

C 

Location  in  Blank  Common 
where  TRAJ  can  start  array 
allocation. 

INTEG 

I 

C 

Set  = 1 Propagate  State  & 

Transition  Matrix 

Set  = 2 Propagate  State  only 

Set  = 3 Propagate  State  and 

Covariance 

IAUGDC 

I 

C 

Flag  array  determining  the 
components  of  the  Transition 
Matrix  or  Covariance  to  be 
propagated . 

MEQ 

0 

c 

Total  number  of  equations 
to  be  integrated. 

MEQ8 

0 

c 

MEQ- 8 

MEQS 

0 

c 

^/MEQ8* 

L0CH 

0 

c 

Integration  stepsize 

L0CX 

0 

c 

Trajectory  time  in  seconds 

L0CPT 

0 

c 

Trajectory  print  time 

L0CET 

0 

c 

Trajectory  event  time 

L0CPR 

0 

c 

Trajectory  time  for  print 

L0CT 

0 

c 

Trajectory  time  stored  for 
interpolation 
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Input/Output: 

(Continued) 

Variable 

L0CR 

L0CYC 

L0CDY 

L0CYT 

L0CDT 

L0CYP 

L0CTE 

L0CFI 

L0CM 

L0CDM 

L0CTC 

Local  Variables: 
Variables 


Input/ 

Output 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


Argument/ 

Common Definition 


C Position  magnitude  stored 

for  interpolation 

C Dependent  variables 

C Differential  equations 

C Dependent  variables  for 

print  and  events 

C Differential  equations  for 

print  and  events 

C Temporary  locations  for 

integration 

C Future  modifications 

« 

C F matr ix^  P = F p 

C Mass 

C Mass  variation 

C Transition  or  Covariance  matrix 

< 


Definition 


ISTATE  Array  containing  size  of  augmented  dynamic  parameters 

Subroutines  Called:  C0PY,  IDENT,  MUNPAK,  ZER0M 

Calling  Subroutines:  PATH 


Common  Blocks : 


(BLANK),  DIMENS,  TRAJl,  TRAJ2 , W0RK 


448-A 


FIND- 3 


Logic  Flow: 


initialization 


control  phase 
change 

FINDl 'N 


FIND 


define  dimensions  of 
dynamic  transition  or 
covariance  matrix  and 
locations  of  parameters 
to  be  integrated 


event 

exit 

FIND3 


Copy  integrated 
parameters  into  mode 
related  locations 


IAUGDC{2)  = 0, 


no  thrust 


(covariance 

integration) 
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FLUX-1 


3.5.5-B  Subroutine ; Flux 

Purpose : To  compute  the  power  degradation  factor  due 

to  proton/electron  bombardment  of  the  solar 
cells  in. the  Earth's  radiation  field. 

Method : See  Analytic  Manual,  Section  4.1. 

Remarks : Flux  is  updated  only  after  each  normal,  that 

is,  non-event  related,  integration  step  in 
subroutine  PATH.  Flux  is  integrated  by  modified 
Euler  method. 


Input/Output : 

Input/ 

Variable Output 

C0M(L0CX)  I 

C0M(L0CH)  I 

ECEQ  I 

FLX 

FLXD0T  - 


GHZER0  I 

ITP  I 

0MEGAG  I 

P RADIS  I 

SCD  0 

UREL  I 


Argument/ 

Common Definition 

C Current  flight  time. 

C Integration  step  size. 

C Ecliptic  to  equatorial 

transformation  matrix. 

C Cumulative  particle 

f luence . 

C Flux  rate. 

C Greenich  hour  angle  at 

launch. 

C Target  planet  code. 

C Earth  rotation  rate. 

C Planetary  radii. 

C Power  degradation  factor. 

C Body  relative  position 

vectors . 


448-C 


Local  Variables: 
Variable 
Al 

CMLAT 

DLAT 

DL0N 

ERAD 

FI 

GHA 

GLAT 

GL0N 

SMLAT 

U 

Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 

Logic  Flow: 


FLUX- 2 


Definition 

Power  degradation  constants. 
Cosine  of  magnetic  S/C  latitude. 
Latitude  of  North  magnetic  pole. 
Longitude  of  North  magnetic  pole. 
S/C  radius. 

Degradation  functions. 

Greenich  longitude. 

Geographic  S/C  latitude. 
Geographic  S/C  longitude. 

Sine  of  magnetic  S/C  latitude 
Intermediate  variable. 

ANGM0D,  MMATB,  VECMAG 
PATH 

(BLANK),  C0NST,  EPHEM,  TRAJ1 , TRAJ2 , W0RK 


None 
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3.5.6-A  Subroutine:  GRAVAR 

Purpose : GRAVAR  computes  the  variational  matrices,  with  the 

exception  of  the  gravity  gradient  matrix  ( Gil) , 
needed. to  formulate  the  matrix  differential  equations 
which  integrate  into  the  augmented  state  transition 
matrix. 


where: 

jr  is  the  s/c  heliocentric  position  vector 
rg  is  the  heliocentric  ephemeris  planet  position  vector 
is  the  gravitational  constant  of  the  ephemeris  planet 
is  the  gravitational  constant  of  the  sun 
Pe  is  the  position  vector  of  the  s/c  WRT  the  ephemeris  planet 
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GRAVAR-2 

Input /Output : 

Input/ 

Variable  Output 

Argument/ 

Common 

Definition 

UP 

I 

C 

Heliocentric  position  vectors 
of  all  bodies  in  the  integra- 
tion 

IAUGDC 

I 

C 

Array  of  flags  used  to  augment 
the  state  for  SIM  or  covariance 
integration 

PMASS 

I 

C 

Planetary  gravitational  con- 
stants 

SMASS 

1 

c 

Solar  gravitational  constant 

UREL 

I 

c 

Position  vector  of  s/c  rela- 
tive to  all  bodies  considered 
in  the  integration 

URELM 

I 

c 

Magnitudes  of  UREL 

G12 

0 

c 

k 

G22 

0 

c 

P 

GM11 

0 

c 

m 

GM12 

0 

c 

d 

GM21 

0 

c 

s 

GM22 

0 

c 

<1 

IEP 

I 

c 

Ephemeris  body  identification 

Local  Variables: 

Variable 

De finition 

UPM  ( = 

WORK(IO) ) 

Magnitude  of  position  vector  of  the 
ephemeris  planet . 

SMUK  ( 

“ WORK (4)) 

Gravitational  constant  of  ephemeris  planet 

Subroutines  Called: 

VECMAG 

Calling  ! 

Subroutines: 

DPHI, 

PDOT 

Common  Blocks: 

EPHEM, 

TRAJ1,  TRAJ2,  WORK 
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3.5.6-B 
Purpose : 


Method : 


Subroutine:  GRAVF0  (UA) 


The  subroutine  GRAVF0  has  two  principal  purposes. 

The  first  is  the  calculation  of  differential  ac- 
celerations acting  on  the  s/c  due  to  gravitational 
bodies  being  considered  in  the  analysis.  The  second 
purpose  is  the  computation  of  the  gravity  gradient 
matrix,  Gil,  which  is  used  in  the  algorithm  determin- 
ing the  step  size  for  the  trajectory  integrator 
(PATH).  Gil  is  used  also  with  the  other  variational 
matrices,  G12,  G22,  GM12,  GM12,  GM21,  and  GM22  (all 
computed  in  GRAVAR)  to  formulate  the  matrix  differen- 
tial equations  which  integrate  into  the  augmented 
state  transition  matrix.  In  addition,  GRAITF0  per- 
forms many  auxilliary  calculations  which  determine 
the  relative  geometries  among  all  planetary  bodies 
and  the  s/c.  These  georaetricl  quantities  are  stored 
in  common  blocks  accessible  to  other  routines  where 
they  may  be  used  without  further  computational  ex- 
pense . 

TRAJ  uses  Encke’s  formulation  of  the  equations  of 
motion  for  propagating  trajectories,  (Section  4.1, 
Reference1!).  The  differential  acceleration  computed 
by  GRAVF0  is 


Sr 


[ X + t>  * £.] 


where 
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GRAVF0-2 


r = r + J r 

- — c “ 

* * • 

r = r + £ r 

— — r v — 


f<*  ) 


(3  i 3«.  + 0<2) 
1 + (1  + ^)3/2 


ot  = ( 5 r - 2r)  £r 

2 


r + r 

- -p 


- r . 


£( 


3 + 3 t&i 
1 + (1  + 


+ *2 

1 


3/2 


reference  conic  position  vector  of  the 
spacecraft . 

- position  vector  of  the  spacecraft  relative 
to  the  i~  body* 

- heliocentric  position  vector  of  the  space- 
craft. 

t ll 

- heliocentric  position  vector  of  the  i — 
body. 

- number  of  bodies  included  in  the  integration 
other  than  the  sun, 

heliocentric  position  vector  of  the  primary 
body. 


gravitational  constant. 


454 


GRAVF0-3 


GRAVF0  also  computes  the  gravity  gradient  matrix, 
Gil,  which  is  used  for  state  transition  matrix 
propagation  and  as  a determinant  in  the  integrator 
step  size  logic.  (Reference  1,  p 122) 


+ pt  - pi. 2  J 

p _ P _ P _ P 

i.  L 

The  subscript  i refers  to  the  ic  perturbing 
body  and  the  subscript  p refers  to  the  primary 
body.  £ indicates  body  relative  position  vectors 


while  fi  is  the  gravitational  constant. 
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Input/Output : 

Input/  Argument/ 


iriable 

Output 

Common 

Definition 

UA 

I 

A 

The  first  three  elements 
contain  &r. 

The  second  three  elements 
contain  £ r . 

UENC 

I 

C 

r 

— c 

UENCM 

I 

C 

r 

c 

VENC 

I 

C 

r 

— c 

UTRUE 

0 

c 

£ 

UTRUEM 

0 

c 

r 

VTRUE 

0 

c 

r 

VTRUEM 

0 

c 

r 

APERT 

0 

c 

Array  that  contains  the  per- 
turbing acceleration  vector 
for  each  body  included  in  the 
integration.  APERT  (I,  IPRI) 
I * 1.3  contains  the  vector 
sum  of  these  perturbations. 

SMASS 

I 

c 

Solar,  gravitational  constant. 

PMASS 

I 

c 

Array  of  planetary  gravita- 
tional constants. 

UREL 

0 

c 

Array  containing  each  . 

URELM 

0 

c 

Array  containing  each  . 

VREL 

0 

c 

* 

Array  containing  each  P . 

VRELM 

0 

c 

♦ 

Array  containing  each  . 

UP 

I 

c 

Array  containing  each  r . 

VP 

I 

c 

Array  containing  each  r . 

456-A 


GRAVF0-5 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

NB 

I 

C 

Array  containing  planet  codes 
of  each  body  in  the  integration. 

APRIM 

0 

c 

» a 

r 

“P 

AT0T 

0 

c 

hr 

Gil 

0 

c 

f 

MPLAN 

I 

c 

N + 1 

IPRI 

I 

c 

Flag  used  to  locate  information 
concerning  the  primary  body  in 
the  UP,  UREL,  UREIM,  VP,  VREL, 
and  VRELM  arrays. 

Local  Variables: 

Variable 

Definition 

ADEL  ( 

= W0RK(I), 

I = 1,3) 

- jh  [ f(  a > i + &rj 

APERT 

(J,  IPRI), 
J = 1,3 

2T  pi  [i + f (tm  %] 

F(X)  Statement  function  equivalent  to 

f(G)  and  f(  CT.). 

Q (—  W0RK(21))  a 

Subroutines  Called:  VECMAG 

Calling  Subroutines : M0TI0N 


Common  Blocks : 


EPHEM,  TRAJ1,  TRAJ2 , W0RK 
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GRAVF0-6 


456-C 


3.5.6C  Subroutine : 

Purpose : 


Method : 


Input/Output : 

Variable 

J2 

PRADIS 


GRVP0T-1 


GRVP0T 

To  evaluate  perturbing  accelerations  due  to 

the  J2  term  in  the  gravitational  potential 

and  to  calculate  variational  partial  derivatives 

appearing  in  the  variational  differential  equation 

which  generates  the  augmented  state  transition 

matrix. 

The  perturbing  acceleration  vector  due  to  J2 
is  computed  as  outlined  in  the  Analytic  Manual, 
Section  4.1.  This  acceleration  vector  is 
rotated  from  the  equatorial  to  the  ecliptic 
frame  and  is  transmitted  to  subroutine  GRAVF0 
where  it  is  added  to  AT0T,  the  differential 
acceleration  vector.  When  the  nonspherical  mass 
model  is  being  considered,  variational  partials 
are  also  computed  in  GRVP0T  by  analytic  formulae 
which  are  given  in  Section  9„4  of  the  Analytic 
Manual.  These  partials  are  added  to  the  a 
appropriate  partition  of  the  F^  matrix. 


Input/ 

Output 

Argument/ 

Common 

Definition 

I 

C 

J2  coefficient  in  the 

gravitational  potential 

function. 

I 

C 

Planetary  radii  (Earth), 

456-D 


GRVP0T-2 

Variable 

Input/ 

Output 

Argument / 
Common 

Definition 

PMASS 

I 

C 

Planetary  gravitational 
constants  (Earth) . 

UTRUE 

I 

C 

Geocentric  S/C  position 
vector,  ecliptic  reference 
frame . 

ECEQ 

I 

c 

Rotation  matrix  for  trans- 
forming a vector  from 
equatorial  to  ecliptic 
coordinates , 

GPERT 

0 

c 

Vector  of  perturbing 
accelerations  due  to  the 
nonspherical  mass  distribution 
of  the  primary. 

Gil 

I/O 

c 

Variational  partials  of  S/C 
acceleration  changes  w.r.t. 
changes  in  the  position. 

IAUGDC 

I 

c 

Flag  vector  identifying 
augmented  dynamic  parameters. 

GJ2 

0 

c 

Variation  partials  of  S/C 
acceleration  change  w.r.t. 
changes  in  J2. 

Local  Variables: 

Variable 

Definition 

UTRUEQ 

S/C  position  vector  relative  to  the 
primary  body's  equatorial  system. 

GPRTEQ 

Perturbing  acceleration  vector  due  to 
a nonspherical  mass  distribution. 

GEQ 

Variational  partials  expressed  relative 
to  the  geocentric  equatorial  coordinate 
system. 

Subroutines  Called: 

ADD,  MMAB,  MMABAT, 

MMATB,  ZER0M 

Calling  Subroutines: 

GRAVF0 

Common  Blocks : 

C0NST, 

EPHEM,  TRAJ1 

TRAJ2,  W0RK 

56-E 
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L0ADFM-1 


3.5.7 
Purpose : 


Method: 


Remarks : 


Subroutine:  L0ADFM  (DS,  DP,  INDEX) 

To  compute  the  F matrix  and  the  matrix  of  deriv- 
atives $ = F$  or  P = FP  + PFT  + Q for 

transition  matrix  or  covariance,  respectively. 
(Sections  4.5  and  4.6,  Reference  1). 

The  non-zero  components  of  F are  stored  in  appro- 
priate sub-matrices,  according  to  the  degree  the 
state  is  augmented. 

Case  1:  State  transition  matrix. 

Given  the  augmented' sta te  vector 


x - 


where 

r - spacecraft  position  vector. 

r_  - spacecraft  velocity  vector, 

u - constant  spacecraft  controls. 

r - position  vector  of  the  spacecraft 

— e 

relative  to  the  ephemeris  body. 

r - velocity  vector  of  the  spacecraft 
—e 

relative  to  the  ephemeris  body. 
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The  linearized  equations  of  motion  for  the 
augmented  state  are 


£ X « F £ X 


where 

F a 'll 

■dx 


I 

0 

0 

0 

0 

0 

0 


0 

s 

0 

0 

0 

0 

0 


0 

k 

0 

0 

p 

0 

0 


0 

0 

0 

I 

0 

0 

0 


0 

d 

0 

0 

q 

0 

0 


0 

m 

0 

0 

s 

0 


where  I is  a 3x3  identity  matrix  and 


m 


a £ 


a £e 

a r 

— e 


q = 


a £e 
3 Me 


UL 

3ft 


d 


S 
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Case  2;  Covariance  matrix. 

Given  the  augmented  state  vector 


where 

Co  - time  varying  thrust  parameters, 
r.  - tracking  station  position  vectors. 


and 


I 0 
0 g 
0 0 
0 0 
0 0 
0 0 
0 0 


0 0 

n 0 

0 0 

h 0 

0 0 

0 0 

0 0 


0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 


where  I is  a 3x3  identity  matrix 
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n = [gig] 

and  h is  the  matrix  of  process  noise  correlation 
times 


The  matrix  Q is  the  process  noise 3 


The  dimensions  of  <$,  P,  P,  F and  Q are  determined 
by  the  highest  degree  of  augmentation  of  the  state 
vector.  The  flag  array  that  controls  the  augmen- 
tation is  the  IAUGDC  array. 
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Input/Output : 
Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

INDEX 

I 

A 

= 1,  Load  the  F matrix 
and  compute  P. 

= 2,  Load  the  F matrix 
and  compute 

= 3,  Use  current  F,  compute  P 
- 4,  Use  current  F,  compute 

DS 

I 

A 

=.  P for  Covariance  propagation. 

= I for  Transition  Matrix 
propagation 

DP 

0 

A 

= P for  Covariance  propaga- 
tion,  J for  transition 

matrix 

F (L0CFI) 

I 

C 

Location  in  Blank  Common  to  use 
for  F matrix  storage. 

IAUGDC 

I 

C 

Array  of  flags  where  each  element 
determines  what  is  to  be  loaded 
in  the  F matrix. 

Gil 

I 

c 

f 

GT 

I 

c 

S 

G12 

I 

c 

k 

G22 

I 

c 

P 

GM12 

I 

c 

d 

GM22 

I 

c 

q 

GM11 

I 

c 

m 

GM2 1 

I 

c 

s 

GTAU1 

I 

c 

.Upper  left  3x3  of,  h . 

GTAU2 

I 

c 

Lower  right  3x3  of  h 

qN0ISE 

I 

c 

Q = process  noise 

MEQS 

I 

c 

Dimensions  of  J 5 5 , P,  P, 
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Subroutines  Called:  MMAB,  MUNPAK,  SCALE,  SYWTRZ , ZER0M 

Calling  Subroutines:  DPHI,  PD0T,  TRAJ 

Common  Blocks:  (BLANK),  TRAJ1,  TRAJ2 , W0RK 


Load  GT 
Into  The 
F Matrix 


Load  G12, 
G22  In  The 
F Matrix 


L0ADFM-7 
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3,5.8  Function  Routine:  L0CATE  (INDEX) 


Purpose : 


To  locate  the  target  body,  ephemeris  body, 
launch  body  or  'primary  body  in  the  NB  array. 


Method : 


None 


Input/Output: 


Input/ 

Variable  Output 


Argument/ 

Common 


Definition 


INDEX  I A 

NTP  I C 

NEP  I C 

NLP  I C 

NPRI  I C 


SET  = 1 Locate  target  body 

= 2 Locate  ephemeris  body 
= 3 Locate  launch  body 
= 4 Locate  primary  body 

Number  of  the  target  body 

Number  of  the  ephemeris  body 

Number  of  the  launch  body 

Number  of  the  primary  body 


Local  Variables: 
Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 

Logic  Flov;: 


None 

None 

PATH,  GRAVF0 
TRAJ2 


[Loca  te  NTP  j 

L 

Locate  NPRI 

— 
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3.5.9  Subroutine: 

M0TI0N  (T,  DS,  DSD,  M, 

N,  L0C) 

Purpose: 

To  compute  the  S/C  accelerations  and  to  rectify 
the  reference  conic. 

Method : 

Encke's  formulation  of 

the  equations  of  motion. 

In put/Output : 

Variable 

Input/  Argument/ 

Output  Common 

Definition 

T 

I A 

Trajectory  time 

DS 

I A 

Dependent  variable 

DSD 

0 A 

Differential  equations 

M 

I A 

Number  of  rows  in  DS  and  DSD 

N 

I A 

Number  of  columns  in  DS  and  DSD 

L0C 

I A 

Routing  flag 

EP0CH 

I C 

Julian  Date  of  Launch 

TM 

I c 

Conversion  from  seconds  to  days 

EXHVEL 

I c 

Exhaust  velocity 

AT0T 

I c 

Differential  acceleration  plus 
perturbing  gravitational 
accelera  tions 

THRACC 

I c 

Thrust  accelerations 

RPACC 

I c 

Radiation  Pressure  acceleration 

Local  Variables: 

None 

Subroutines  Called: 

REFINE,  S0LAR , 0SCUL, 

GRAVF0,  EP,  RPRESS , ADD,  C0FY 

Calling;  Subroutines 

: NUMIN,  DPHI,  PD0T 

Common  Blocks: 

C0NST,  TIME,  TRAJl , TRAJ2 , W0RK 
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Logic  Flow: 


I 
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3.5.10  Subroutine : 
Purpose : 


NEWT0N  (XVALUE,  YVALUE , X,  Y,  INDEX) 

To  fit  a third  Order  Polynomial  through  4 data 
points  for  either  interpolation  or  finding  the 
minimum  of  the  polynomial. 


Method : 


Newton's  third  Order  Divided  Difference  Interpolation 
Polynomial.  (See  Appendix  3,  Reference  1) 


Tnput/Output: 


\7a  y ■{  Vi  I pi 

Input/ 

Output 

Argument/ 

Common 

Definition 

Vd  L i.a  UIC 

XVALUE 

I 

A 

Table  of  independent  values 

YVALUE 

I 

A 

Table  of  dependent  values 

X 

I/O 

A 

For  interpolation,  the  value 
of  X for  which  Y is  desired. 
(Input) 

For  a minimum,  the  value  of 
X at  the. minimum.  (Output) 

Y 

I/O 

A 

For  interpolation,  the 
interpolated  value  of  Y. 
(Output) 

For  a minimum,  the  value  of 
Y at  the  minimum.  (Output) 

INDEX 

I 

A 

Set  = 1,  Find  the  minimum 
Set  - 2,  Interpolate 

Local  Variables: 
Variable 

Definition 

DDX 

The 

Divided  Differences 

. A,  B,  C,  D 

Coefficients  of  a 3rd  Order  Polynomial 

Subroutines  Called: 

None 

Calling  Subroutines: 

PATH 

Common  Blocks: 

None 
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Logic  Flow: 
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3 • 5 . 1 i A Subroutine:  NUMIN  (M,  N,  X,  H,  YC,  YP,  F,  DERIV ) 

Entry  Points : SETUP,  RUNG2 , RUNG4 

Purpose : To  integrate  an  MxN  matrix  of  first  order 

differential  equations. 

Method:  4th  Order  Runge-Kutta  formula  (RUNG4)  and  2nd  Order  (RUNG2) 


Input /Output : 


Variable 

I/O 

Argument/ 

Common 

M 

I 

A 

N 

I 

A 

X 

1/0 

A 

H 

I 

A 

YC 

1/0 

A 

YP 

0 

A 

F 

0 

A 

DERIV 

I 

A 

Definition 

Number  of  rows 
Number  of  columns 
Independent  variable 
Integration  step-size 
Matrix  of  dependent  variables 
Temporary  storage  matrix 
4 - Temporary  storage 
matrices 

Name  of  the  subroutine 


containing  the 
differential  equations. 
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NUMIN-2 


Local  Variables: 
Variable 
ALPHA 

BETA 

CHI 

L0C 


Subroutines  Called: 
Calling  Subroutine: 
Common  Blocks : 


Definition 

Array  of  4 integration  constants 
(0,  h>  *5,  1)  or  (0,  1,  0,  0) 

Array  of  4 integration  constants 
(o,  ht  hy  1)  or  (0,  1,  0,  0) 

Array  of  4 integration  constants 

(1/6,  2/6,  2/6,  1/6)  or  (^,  0,  0) 

Output  flag  to  DERIV 


DERIV  (defined  by  argument,  e.g. , DPHI,  M0TI0N,  PD0T) 
PATH 


None 
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NUMXN-3 


Flow: 


I 


^ RETURN  ^ 
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Occult- i 


3.5.11-B 
Purpose : 

Method : 


Subroutine:  0CCULT  (A,  E,  USV,  XMU,  RS,  B0DY,  T,  F) 

To  compute  the  entrance  and  exit  true 
anomalies  of  occul tation. , 

A quartic  equation  in  the  cosine  of  the 
entrance  and  exit  true  anomalies  is 
formulated  as  follows: 

/ O O 

- cos  f + cos  f + cos  f + 

C,  cos  f + C_ 

4 5 


The  coefficients  are  derived  from  the 
orbital  geometry  and  the  anti-sun  vector 
as  described  in  Appendix  8 of  the  Analytic 
Manual,  The  equation  = 0 is  the  condition 
for  shadow  entrance  and  shadow  exit.  If  the 
S/C  is  entering  the  shadow,  must  change 
from  minus  to  plus.  Exit  from  the  shadow 
will  be  characterized  by  .^/changing  from 
plus  to  minus.  Spurious  roots  of  the  above 
equation  are  eliminated  by  enforcing  the 
physical  constraint  that 


S_  • r_  ^ 0 

where  S_  is  the  anti- sun  vector  and  r_  is 
the  position  vector  to  shadow  entrance  (or 
exit)  in  the  orbit. 
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Remarks : 


Refer  to  Appendix  8 of  the  Analytic  Manual 
for  a complete  discussion  of  the  shadow  model. 


Input/Output : 


Variable 


Input/  Argument/ 

Output Common 


Definition 


A 

E 

USV 


XMU 

RS 

B0DY 

T 


F 


HM 


I 

I 

I 


I 

I 

I 

0 


0 


I 


A Semi -major  axis. 

A Orbital  eccentricity. 

A 6 vector;  first  3 components 

define  a unit  vector  in  the 
direction  of  periapsis;  the 
second  three  components 
define  a unit  vector  in  the 
direction  of  the  periapsis 
velocity  vector. 

A Gravitational  constant  of 

the  central  body. 

A Radius  of  occulting  body. 

A A unit  vector  toward  the  sun. 

A T(l)  is  entrance  time  (sec) 

into  shadow  and  t(2)  is  exit 
time  (sec)  from  shadow  as 
measured  from  periapsis 
crossing . 

A F (1)  is  entrance  true  anomaly 

(rad)  into  shadow  and  F(2) 
is  exit  true  anomaly  (rad) 
from  shadow. 

C Angular  momentum. 


Local  Variables: 


Variable 


Definition 


BETA 


S * P,  where  P = USV(I),  I = 1,  3 


Cl,  C2,  C3 
C4,  C5 


Coefficients  to  the  quartic  equation 
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Variable 

CPHI 

P 

R 

XXI 


Definition 

Test  angle  to  eliminate  spurious  roots 
Semi-latus  rectum 
Position  magnitude 
S • Q,  where  Q = USV(I),  I = 4,  6 


Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 

Logic  Flow: 


ANGM0D,  QARTIC,  UD0TV 
SHAD0W 

C0NST,  ENC0N,  SHAD0W,  W0RK 
See  listing. 
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3.5.12  Subroutine : 
Entry  Point: 

Purpose : 

Remarks : 


PATH 

FLIGHT 

PATH  initializes  all  trajectory  routines,  while 
FLIGHT  controls  trajectory  propagation. 

Based  upon  input  flags,  PATH  determines  how 
FLIGHT  will  function  as  well  as  all  the  other 
trajectory  routines.  FLIGHT  tests  for  and 
executes  trajectory  rectification,  primary  body 
changes,  thrust  control  and  shadow  phase  changes, 
trajectory  termination  conditions,  trajectory 
print  and  trajectory  events. 


The  most  significant  feature  of  PATH  is  the  use 
of  blank  common  as  a working  area  for  the  Fourth 
Order  Runge-Kutta  numerical  integration  routine 
(Appendix  2,  Reference  1),  applied  to  a matrix 
of  first  order  differential  equations. 


Y =y  H (v  + 2«F  + 2 • F + F ^ 

k+1  k 6 K l 2 3 k} 


where 


Fi  -F'<v  V 


F2  = F'(xk  + \ + T ■ V 
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F3  = r-  (xk  + ^ , Yk  + f • F2) 


F4  = F'  (xk  + hk  , Yk  + hk  • F3) 

The  values  of  Y and  F are  stored  in  a blank 

common  array  (DSC)  and  their  order  depends 

upon  whether  some  or  no  events  are  processed 

within  the  normal  integration  step  (h^) • 

Case  1:  If  no  events  occur  between  and 

X - X +h,  , then  a normal  integration  step 
k+1  k k* 

\ 

will  be  taken.  The  values  of  Y.  and  F. 

k 1 

(X^,  Y^)  are  used  for  the  Runge-ICutta  inte- 
gration and  at  the  completion  of  the  step  the 
DSC  array  appears  as 

DSC  - Yk+1>  V\  + hk>  Yk+1}> 

F2’  F3’  F4’  ’ ’ \+l 

where  the  first  two  entries  (Y  and  F^)  are  at 

the  updated  point,  the  next  three  entries 

contain  values  of  F in  the  h^  interval,  there 

are  two  unused  storage  arrays,  and  the  last 

entry  is  a running  value  of  Y (which  becomes 

Y,  at  the  end  of  the  step).  The  next 
k+1 


PATH-3 
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integration  step  (h^^)  can  now  be  taken  and 
starts  with  Yk+^,  F^. 

Case  2;  If  an  event  or  print  has  been  specified 
by  either  the  calling  mode  or  TRAJ  itself,  and 
it  occurs  between  and  Xk^,  then  a short 
integration -step  (*h)  is  taken  -to  the  event. 

The  resultant  blank  common  storage  at  the  event 
(X^  + *h)  is  then 

DSC  = Yk,  F . *Yk+1>  *Fl(xk  + *hk>  ^Yk+1), 


2’ 


-kv  *Y 
3’  4’ 


k+1 


where  asterisks  (*)  refer  to  values  for  the 
event  integration  step#  The  first  two  entries 
are  stored  values  of  Y and  F at  Xk,  to  preserve 
values  such  that  a normal  integration  step  can 
be  taken  after  the  event  has  been  processed. 

The  next  six  entries  are  used  for  the  event 
integration  step.  If  no  more  events  occur 
before  Xk  + h^,  then  normal  integration  resumes 
with  the  stored  values  Yk  and  F^,  and  the  results 
are  shown  in  Case  1.  If  more  events  occur  before 
, then  the  process  of  Case  2 is  repeated 
using  *Yk+1  and  until  all  events  have  been 
processed.  Since  TRAJ  can  integrate  the 
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transition  matrix  or  covariance  in  addition  to 
the  state  deviation  from  the  reference  conic, 
an  additional  array  is  needed.  This  array  is 
used  to  store  the  partial  deviatives  contained 
in  the  F matrix  (Appendix  4,  Reference  1).  The 
locations  -for  the -F  matrix  begin  after  the  last 
word  of  (or  *Y^)  • The  amount  of  blank  common 
used  by  TRAJ  varies  with  the  number  of  equations 
to  be  integrated.  For  the  state  only  case. 


where  Sr.  and  $v  are  deviations  from  the  conic 
state,  m is  the  spacecraft  mass  and  Sm  is  the 
mass  variation.  When  the  transition  matrix  (|i) 
or  the  covariance  (P)  are  to  be  integrated 
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For  state  only  integration,  Y is  an  8 x 1 matrix. 
When  the  transition  matrix  or  covariance  is  to 
be  integrated,  the  .dimension  of  Y varies  with  j> 
and  P.  The  dimensions  of  $ and  P are  those  for 
the  highest  degree  of  augmentation.  The  sub- 
routine FIND  determines  the  number  of  equations 
to  be  integrated,  the  dimensions  of  $ or  P and 
the  number  of  locations  in  blank  common  needed 
for  numerical  integration. 


Input/Output: 

. Variable 


Other  information  stored  in  blank  common  are: 


h 


t 

P 


t 

e 


r . 
r 


Current  trajectory  integration 
time  (t) ; 

Integration  stepsize; 

Integration  event  time; 

Next  mode  event  time; 

Next  mode  print  time; 

Four  stored  times  used  for  interpo- 
lation; 

Four  stored  position  magnitudes 
corresponding  to  the  t^'s,  also 
used  for  interpolation; 


Input/  Argument/ 

Output Common  Definition 


INTEG 


I 


C 


Flag  that  determines  the 
equations  to  be  integrated. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

= 1,  State  and  transition 
matrix ; 

= 2,  State; 

= 3,  State  and  covariance. 

IPRINT 

I 

'C 

Flag  that  determines  when 
to  print. 

= 1,  Every  IPRINT  integra- 
tion step; 

= 0,  No  print; 

=-l,  Every  XPRINT  days; 
=-2,  At  trajectory  event. 

MPLAN 

I 

C 

Total  number  of  bodies  to 
be  considered  in  the  NB 
array. 

L0CS 

I 

c 

First  location  the  integra- 
tion routine  can  use  for 
s torage . 

IST0P 

I 

c 

Flag  that  determines  trajec- 
tory termination. 

• 

1 - Final  trajectory  time 

(TDUR) ; 

2 - Radius  of  Closest 

Approach  to  the  target 
body; 

3 - Sphere  of  influence  of 

the  target  body; 

4 - Stopping  radius  relative 

to  the  target  body. 

KTRAJ 

I 

c 

Flag  used  to  test  for  con- 
trol phase  change. 

C 0 - Not  in  use ; 

>0  - Test  for  control 
phase  changes; 

*0  - Do  not  test  for  control 
phase  changes; 

ME VENT 

I 

c 

0 - Do  not  test  for  events; 

1 - Test  for  events. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

NPHASE 

I 

C 

0 - Primary  Body  Changes. 

1 - No  Primary  Body  Changes. 

IFF LAG 

I/O 

C 

1 - No  Thrust  Phase  Change 

has  occurred. 

2 - Thrust  Phase  Change  has 

occurred. 

JPFLAG 

I/O 

c 

1 - No  Primary  Body  Phase 

Change  has  occurred. 

2 - Primary  Body  Phase 

Change  has  occurred. 

IRECT 

0 

c 

0 - Rectification  due  to 

primary  body  or  control 
phase  change. 

1 - Trajectory  rec tif ica tioi 

I STEP 

0 

c 

Number  of  integration  step. 

NB 

I 

c 

Array  containing  the  bodies 
to  be  cosidered  in  the  inte 
gra  tion. 

NB0D  - 

I 

c 

Total  number  of  non-zero 
entries  in  the  NB  array. 

NPRI 

0 

c 

Number  of  the  primary  body. 

IPRI 

0 

c 

Location  of  NPRI  in  the  NB 
array. 

NTPHAS 

I/O 

c 

Number  of  the  current  con- 
trol phase. 

NEP 

I 

c 

Number  of  the  ephemeris 
body . 

IEP 

0 

c 

Location  of  NEP  in  the  NB 
array . 

DRMAX 

I 

c 

Maximum  deviation  from  the 
reference  conic  before 
rectification. 

STATE 0 


I 


C 


Initial  state  vector 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

UTRUE 

I/O 

C 

Position  vector  relative 
to  the  primary  body. 

VTRUE 

I/O 

C 

Velocity  vector  relative 
to  the  primary  body. 

ACC 

I 

C 

Trajectory  Accuracy  level. 

FRCA 

I 

C 

Percentage  of  the  semi- 
major axis  of  target  body 
to  begin  closest  approach 
detection. 

SCMVAR 

I 

C 

Initial  mass  variation. 

SCMASS 

I 

C 

Initial  S/C  mass. 

THRUST  I 

(2,  NTPHAS) 

c 

End  of  the  current  control 
phase . 

VTRUEM 

I 

C 

Magnitude  of  VTRUE. 

UTRUEM 

I 

c 

Magnitude  of  UTRUE. 

XPRINT 

I 

C 

Time  increment  of  Print 
(seconds) . 

Gil 

I 

C 

The  gravity  gradient. 

TDUR 

I 

C 

Trajectory  stopping  time 
in  seconds. 

TEVNT 

I 

c 

Event,  time  in  seconds. 

TCP 

0 

c 

Total  integration  time. 

TREF 

I 

c 

Initial  Trajectory  Starting 
time  in  seconds. 

TST0P 

0 

c 

Time  that  a stopping  criteria 
has  been  reached  in  days. 

NRECT 

I 

c 

Number  of  Rectifications. 

ALPHA 

I 

C 

Inverse  of  semi-major  Axis. 

BIG 

I 

c 

1020 
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Input/ 

Output 


Argument/ 

Common 


Definition 


Thrust  noise  correlation 
times . 


GTAU2 

I 

c 

Thrust  noise  correlation 
times. 

NTP 

I 

c 

Number  of  the  target  body. 

I TP 

I 

C 

Location  of  target  body  in 
the  NB  array. 

QN0ISE 

I 

C 

Process  noise  matrix. 

RST0P 

I 

C 

The  stopping  radius  rela- 
tive to  the  target  body. 

SPHERE 

I 

C 

Array  containing  all  the 
sphere's  of  influence. 

TS0I 

0 

c 

Time  at  the  sphere  of 
influence  of  the  target 
body . 

TM 

I 

c 

86400  seconds. 

TRCA 

0 

c 

Time  at  the  closest  approach 
to  the  target  body. 

UREL 

I 

c 

Relative  position  vectors 
of  the  spacecraft. 

VREL 

I 

c 

Relative  velocity  vectors 
of  the  spacecraft. 

DSC 

I/O 

c 

The  blank  common  array  where 
the  following  flags  (L0CH  to 
L0CX)  are  used  to  locate  dat* 

L0CH 

I 

. c 

Integration  step-size  (h) . 

L0CM 

I 

c 

Spacecraft  mass  (*m). 

L0CFI 

I 

c 

F matrix  (F) . 

L0CPR 

I 

c 

Trajectory  integration  print 
time  (tpR). 

\ 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

L0CPT 

I 

C 

Trajectory  print  time  (t  ) . 

L0CDM 

I 

C 

Mass  variation  (Sm). 

L0CDT 

I 

C 

Differential  equations  for 
events  and  print  (*F^) . 

L0CDY 

I 

C 

Differential  equations  for 

the  reference  (F.). 

X 

L0CET 

I 

C 

Event  integration  time  (t^). 

L0CF0 

I 

C 

Location  of  the  input 
covariance . 

L0CR 

I 

C 

Location  of  the  stored 
position  magnitudes  (r^). 

L0CT 

I 

C 

Location  of  the  stored 
position  trajectory  times 

(O. 

L0CTC 

I 

C 

Location  of  the  output 
transition  matrix  or 
covariance  (*P  or  *j$) . 

LOCYC 

I 

C 

Integrated  equations  for 
the  reference  (X  ) . 

L0CYP 

I 

C 

Integrated  equations 
working  array  (Y^) . 

L0CYT 

I 

c 

Integrated  equations  for 

events  and  print  (*Y, 

k+l 

L0CX 

I 

c 

Trajectory  time  (X,  ), 

K. 

MEQ 

I 

c 

Total  number  of  equations 
to  be  integrated. 

MEQ8 

I 

c 

MEQ- 8 . 

MEQS 

I 

c 

J MEQ81 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

P0LICY 

1/0 

C 

The  thrust  policy  in  effect 
during  occultation. 

LITE 

1/0 

C 

Flag  directing  computational 
flow  for  shadow  changes. 

IPHAS3 

1/0 

c 

Flag  which  determines  whether 
trajectory  information  is  to 
be  printed  at  shadow  phase 
changes . 

NITE 

0 

c 

Flag  indicating  no  orbital 
rectification  for  shadow 
phase  changes. 

TSHAD0 

I 

c 

Time  at  which  coarse  shadow 
tests  are  to  be  made. 

TQ 

I 

c 

Time  at  which  refined  shadow 
tests  are  to  be  made. 

TPHASE 

0 

c 

Time  of  next  phase  change  (i.e., 
thrust,  shadow- in,  or  shadow- 
out  phase  changes). 

T0FF 

I 

c 

Time  of  shadow  entrance. 

T0N 

I 

c 

Time  of  shadow  exit  plus  the 
thruster  warm-up  time. 

Flag  indicating  kind  of  approach- 
ing phase  change. 


KIND 


0 
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Input/  Argument/ 

Variable  Output  Common 


Definition 


KUT0FF  0 


C • This  flag  indicates  to  the 

mode  calling  TRAJ  why  the 
trajectory  was  terminated. 
Other  than  termination  on 
final  time  and  an  event, 
the  other  terminations, 

>.  closest  approach,  sphere 
of  influence  and  stopping 
radius  are  not  always  satis- 
fied. Therefore  this  multi- 
valued flag  gives  a different 
value  for  the  actual  stopping 
condition.  The  following 
- table  shows  the  relationship 

between  KUT0FF  and  1ST0P . 


Reaues ted 

IST0P 

Actual 

KUT0FF 

Final  Time 

1 

Final  Time 

1 

Closest  Approach 

2 

Final  Time 

2 

Sphere  of  Influence 

3 

Final  Time 

3 

Stopping  Radius 

4 

Final  Time 

4 

Closest  Approach 

2 

Closest  Approach 

5 

Sphere  of  Influence 

3 

Closest  Approach 

6 

Sphere  of  Influence 

3 

Sphere  of  Influence 

7 

Stopping  Radius 

- 4*  - 

Stopping  Radius 

8 

Event  Time 

NA 

Event  Time 

9 

V 

Local  Variables; 

Variable De  fi nit ton 

REVflT 
HPRNT 
IRSTP 


.Event  integration-  step-size. 

-Print  integration  step-size. 

Indicates  termination  for  determining 
KUT0FF, 
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The  following  variables  are  used  in  assigned  G0  T0  statements  and  are 
in  the  TRAJ1  common  block.  When  these  statements  are  used  in  FLIGHT, 
there  are  implicit  tests  made.  The  majority  of  the  tests  are  made  in 
PATH.  ITRAJ,  IPHASO,  IPHAS1,  IPHAS2 , JFHAS1,  JPHAS2,  JFHAS3,  JTEST, 
KST0P,  L0CAL,  MST0P,  NST0P,  IEVNT1,  IEVNT2,  IEVNT3,  INTEG2 , INTEG3, 

I PHASE,  IPRT,  IEVENT. 

Subroutines  Called:  C0PY,  DPHI,  FIND,  FIND1,  FIND3,  IDENT,  L0CATE, 

M0TI0N,  NEWT0N,  PD0T,  PRINTT,  RUNG2,  RUNG4, 
SETUP,  UD0TV,  VECMAG,  ZER0M , FLUX,  PUNCHR, 
SHAD0W 

Calling  Subroutines : TRA J 

Common  Blocks:  (BLANK),  C0NST,  EPHEM,  TIME,  TRAJ1 , TRAJ2 , 

W0RK , SHAD0W 

Logic  Flow;  The  functional  flow  of  PATH  and  FLIGHT  is  given 

on  the  next  two  pages,  followed  by  a more 
detailed  logic  flow. 


Summary 
Logic  Flow: 


PATH- 13 
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Detailed 
Logic  Flow: 


PATH- 15 
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IPR1NT  = 


IPRINT:0 


Assign  Statement 
Numbers  To  Print 
Every  XPRINT 
Days 

IPRT  = 735 
LPR1NT  =885 
IPLACE  = 950 
JTEST  = 740 


Assign  Statement 
Numbers  To  By 
Pass  Print 
IPRT  = 800 


Assign  Statement 
Numbers  To  Print 
Every  IPRINT 
Integration  Step 
IPRT  =710 
LPRINT  =885 
IPLACE  =950 
JTEST  =800 


IPRINT  = -2 


Print  Every  Event 
LPRINT  = 730 
IPLACE  = 950 
JTEST  = 885 


KTRAJ :0 


Assign  Statement 
Numbers  To  By  Pass 
The  Test  For  Control 
Phase  Changes 
IPHASE  = 600 


Assign  Statement 
Numbers  To  By  Pass 
The  Test  For  Events 
I EVE NT  = 900 


Assign  Statement 
Numbers  To  Test 
For  Control  Phase 
Changes 
1PHASI  = 500 


Assign  Statement 
Numbers  To  Test 
For  Events 
IE VENT  = 810 
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PATH- 18 


I 
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PATH- 21 


PATH- 2 2 


493 


960 


18 


960 


KUTSOFF= IRSTP+I ST0P 
TST0P=DSC  (L0CX) /TM 
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3.5.13  Subroutine:  PD0T  (T,  DS,  DP,  M,  N,  L0C) 


Purpose : 

Method : 
Xnput/Output : 


To  compute  the  time  derivative  of  the  state 
covariance  (P) 

P = FP  + PFT  + Q 


Input/  Argument/ 
Variable Output Common 


Definition 


T 

DS 

DP 

M 

N 

Lac 

INTEG 


IAUGDC  I C 

IRECT  I C 


Local  Variables 


Variable 


Trajectory  time 
Independent  variables 
Differential  equations 
Number  of  rows  in  DS  and  DP 
Number  of  columns  in  DS  and  DP 
Routing  flag 

Set  = 1 Propagate  the  state 
and  Transi tion  Ma trix 
Set  = 2 Propagate  the  state 
Set  = 3 Propagate  the  state 
and  state  covariance 

Flag  indicating  the  augmentation 
of  the  STM  and  covariance  matrix 

Index  used  to  check  whether  the 
current  call  to  PDaT  is  for 
rectification  purposes  only 
(i.e,  IRECT  =1)  ; 


Definition 


IAUGS  Index  used  to  check  whether  the 

F matrix  needs  tg  be  augmented 

Calling;  Subroutines:  NUMIN 

Subroutines  Called:  M0TI0N,  LaADFM,  GRAVAR 


Common  Blocks: 


TRAJ2 


Logic  Flow 


P0WER-1 
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3.5.14 
Purpose : 


Me  thod : 


Function:  P0WER  (R,  TT) 

P0WER  computes  the  power  available  to  the 
thrusters  of  the  low  thrust  spacecraft  for 
solar  electric  and  nuclear  propulsion. 

The  power  is  computed  from  the  following 


expression. 


* exp  f“PL(t-tDL)]  - PRK^ 


solar 

electric 


P = 


P if  P > P or  r<r  solar 

max,  max  min,  electric 


tPo  exP  [ -PL<t~tDL)] 


P nuclear 

HK  j 


p - Power  available  (at  1 AU  for  solar, 

° at  energization  for  nuclear) 

A - (Empirical)  Constants  defining  solar 

* array  characteristics 

r - Heliocentric  position  magnitude  of 

the  S/C 

P - Power  decay  constant 

L 

t - Time  from  epoch 

t„  “ Time  delay 

P -Housekeeping  power 

HK  ^ 


p 

max 


P0WERO  I 


PHK  I 

PMAX  I 

A1  I 

A2  I 


A3  I 

A4  I 

A5  I 

RMIN  I 

PL0SS  I 


TDL 


I 
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Input/ 
Hu  tput 

Argument/ 

Common 

Definition 

varxaD 

IE  NRG  Y 

I 

' c 

Flag  that  determines  the 
type  of  power 

0 - nuclear  power 

1 - solar  electric  power 

P0WER 

0 

Power  available  to  the 
thrusters . 

Local  Variables: 
Variable 

Definition 

1 

SR  . fr* 


SCALE  T + 5/2  3 7/2  ,5 

r r r r r 

Subroutines  Called:  None 

Calling  Subroutines:  EF 

r.fimmon  Blocks:  C0NST,  TRAJ1 , XRAJ2 


^Function  Value  Output  . 
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3.5.15A  Subroutine;  PRINTT  (TT,  MASS) 

Purpose ; To  print  trajectory  and  spacecraft  related  infor- 


ma tion. 

Input/Output  t 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

NTPHAS 

I 

C 

Number  of  the  current 
thrust  phase. 

NPRI 

I 

C 

Number  of  the  current 
primary  body. 

NEP 

I 

c 

Number  of  the  ephemeris 
body. 

NTP 

I 

c 

Number  of  the  target  body. 

PLANET 

I 

c 

Array  containing  the  names 
of  the  planets. 

MASS 

I 

A 

Current  spacecraft  mass. 

WP0WER 

I 

c 

Current  power  available  to 
the  spacecraft  for  thrust. 

TT 

I 

A 

Trajectory  time  in  days. 

TDUR 

I 

C 

Trajectory  termination 
time  in  seconds. 

EP0CH 

I 

c 

Trajectory  initial  time 
(Julian  days). 

TM 

I 

c 

86400,  seconds. 

APRIh 

I 

c 

Acceleration  vector  due 
to  the  gravity  of  the 
primary  body. 

THRACC 

I 

c 

Acceleration  vector  due 
to  thrus  t . 

RPACC 

I 

c 

Acceleration  vector  due 
to  radiation  pressure. 
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PRINTT-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

IPFLAG 

I 

C 

Flag  that  indicates  control 
phase  change. 

JPFLAG 

I 

C 

Array  containing  only  the 
names  of  the  planets 
included  in  the  integration. 

APERT 

I 

c 

Matrix  containing  the  accel- 
eration vectors  due  to  the 
gravity  of  the  non-primary 
bodies. 

UREL 

I 

c 

Matrix  of  spacecraft  posi- 
tion vectors  relative  to 
the  bodies  considered  in 
the  integration. 

URELM 

I 

c 

Array  containing  magnitudes 
of  the  position  vectors. 

VREL 

I 

c 

Matrix  , of  spacecraft  veloc- 
ity vectors  relative  to  the 
bodies  considered  in  the 
integration. 

VRELM 

I 

c 

Array  containing  magnitudes 
of  the  velocity  vectors. 

MPIAN 

I 

c 

Total  number  of  bodies 
included  in  the  integration. 

THRUST 

I 

c 

Array  containing  the  thrust 

control.  To  locate  informa- 
tion for  the  current  control 
phase  NTPHAS  is  used  as 
follows:  THRUST  (i,  NTPHAS) 

where  i is  the  desired  infor- 
mation. 


Local  Variables: 


W0RK 


PHASE 


Temporary  storage  array. 

Array  that  contains  headings  for  control 
and  primary  body  changes. 
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PRINTT-3 


Subroutines  Called:  None 

Calling  Subroutines:  PATH,  MEASPR 

Common  Blocks:  C0NST,  EPHEM,  TIME,  TRAJ1 , TRAJ2 


Logic  Flow: 


PRINTT-4 


503-B 


QADRAT-1 


3.5.15-B  Subroutine:  QADRAT  (A,  B,  C,  XI,  X2 , KK) 

Purpose : To  solve  for  the  roots  of  a quadratic 

equation. 

Method : The  equation 

2 

Ax+Bx+C=0, 
possesses  two  roots  given  by 

x.,  = - B + \j  B2  - 4AC 
2A 

Input/Output : 

Input/  Argument/ 

Variable  Output  Common Definition  

A,  B,  C I A Coefficients  of  the  quad- 

ratic equation, 

XI,  X2,  0 A Real  roots  of  the  equation, 

KK  0 A No,  of  real  roots 

Subroutines  Called:  None 

Calling  Subroutines:  QARTIC 

Common  Blocks:  None 

Logic  Flow: 


See  Listing 
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3.5.15-C  Subroutine 
Purpose : 

Method : 


Remarks : 


Input/Output : 

Variable 
A,  B,  C, 

E 

XI,  X2,  X3 , 

X4 

KK 

Subroutines  Called; 
Calling  Subroutines: 
Common  Blocks : 

Low  Flow: 


QARTIC-1 

QARTIC  (A,  B,  C,  D,  E,  XI,  X2 , X3 , X4,  KK) 

To  solve  for  the  real  roots  of  a quartic 
equation. 

The  equation 

Ax^  + Bx^  + Cx^  + Dx  + E = 0, 

is  solved  in  closed  form  by  the  method  of 
quadratic  radicals. 

A concise  summary  of  the  analytic  approach 
may  be  found  in  Escobal’s  Methods  of  Orbit 
Determination, n Appendix  III,  on  Pages  430- 
434 . 


Input/  Argument/ 

Output Common Definition 

I A Coefficients  of  the  quartic 

equation. 

0 A Real  roots  of  the  quartic 

equation. 

0 A Number  of  real  roots. 

QADRAT 

OCCULT 

C0NST 

See  Listing 
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RPRESS -1 


3.5. 16 A Subroutine:  RPRESS  (CMASS) 

Purpose : RPRESS  computes  the  effective  acceleration 

acting  on  a spacecraft  due  to  radiation  pres- 
sure . 

Method:  The  effective  acceleration  is  computed  from 

the  following  expression. 

(1.024  x 108)  CrA  r 

a _ « — 

2 r 

m r 

- heliocentric  position  vector  of  the  space- 
craft. 

m - spacecraft  mass. 

C A - coefficient  of  reflectivity  multiplied 

by  the  effective  area  of  the  solar  array. 

In  the  event  that  r ^ r . , where  r . is  the 

mm  mm 

distance  at  which  the  solar  electric  power  is 
a maximum,  the  effective  cross  sectional  area 
of  the  solar  array  is  changed  by  tilting  (or 
folding)  them.  Therefore,  the  effective  accel- 
eration is  reduced, 

% = % * cos 


where  oC  is  the  off-sun  tilt  angle. 
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RPRESS-2 


Variable 

Input/ 

OutDUt 

Argument/ 

Common 

Definition 

CRA 

I 

C 

C^A  (Equivalenced  to 
ENGINE (15)), 

CTILT 

I 

C 

cos  (Equivalenced  to 

ENGINE (16) )„ 

RMIN 

I 

C 

r (Equivalenced  to 

mm 

ENGINE (9)). 

URELM(l) 

I 

C 

Heliocentric  position  of 
the  spacecraft. 

UREL (I, 

1)  1 

c 

Heliocentric  position 
vector  of  the  spacecraft. 

RPACC 

0 

C 

a_^_ 

Local  Variables: 


Subroutines  Called:  None 

Calling  Subroutine:  M0TI0N 

Common  Blocks:  C0NST,  TRAJ1 
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3.5.16B  Subroutine : 
Entry  Point: 

Purpose : 

Method : 


Remarks : 


Input /Out put : 

Variable 

ALPHA 

A1 


SHAD0W-1 


SHADOW 

SHADE 

To  determine  the  times  of  shadow  entrance 
and  shadow  exit. 

Coarse  tests  are  made  to  determine  whether 
the  osculating  orbit  intersects  the  Earth's 
shadow.  If  an  intersection  exists,  the 
time  of  shadow  entrance  is  predicted.  At 
that  time  an  accurate,  or  refined,  computa- 
tion is  completed  to  determine  the  actual 
entrance  and  exit  times.  A quartic  equation 
in  the  cosine  of  the  entrance  and  exit  true 
anomalies  is  solved  and  Kepler's  equation 
is  applied  to  determine  the  entrance  and 
exit  times. 

If  the  current  thrust  policy  is  an  imposed 
coast  period  the  shadow  logic  is  bypassed. 
Refer  to  Appendix  8 in  the  Ana  lytic  Manua 1 
for  a complete  discussion  of  the  shadow  model. 


Input/ 

Argument/ 

Output 

Common 

Definition 

I 

C 

Inverse 

of  semi -major  axis 

I 

C 

Orbital 

mean  motion. 

BIG 


I 


C 
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SHADOW -2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

DELE 

I 

C 

See  Page  535 . 

DLAY 

(=ENGINE (18) ) 

I 

C 

Coefficients  in  the  warm-up 
equation. 

DLAYO 

(=ENGINE(17)> 

I 

c 

If  the  shadow  time  is  less 
than  DLAYO,  the  warm-up  time 
is  considered  to  be  nil* 

ECCITY 

I 

c 

Orbital  eccentricity. 

EV 

I 

c 

Laplace  vector. 

EZERO 

I 

c 

See  Page  535. 

HM 

I 

c 

Angular  momentum. 

HV 

I 

c 

Angular  momentum  vector. 

ITP 

I 

c 

Location  of  the  target  planet 
in  the  NB  array. 

L0CX 

I 

c 

Location  of  the  current  trajec 
tory  time  in  blank  common. 

M0RBIT 

I 

' c 

Number  of  orbital  revolutions 
to  be  completed  before  further 
coarse  shadow  tests  are  to  be 
made . 

NTP 

I 

c 

Target  planet  code. 

NTPHAS 

I 

c 

Current  thrust  phase  number. 

PERIOD 

0 

c 

Osculating  orbital  period. 

PI 

I 

c 

T r. 

PMASS 

I 

c 

Planetary  mass. 

PRADIS 

I 

c 

Planetary  radii. 

THRUST 

I 

c 

Thrust  profile. 

TNITE 

0 

c 

TNITE(l),  shadow  entrance  time 
referenced  from  periapsis 
crossing* TNITE(2),  shadow  exit 
time  referenced  from  periapsis 
crossing. 
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SHAD0W-3 

Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

T0FF 

0 

C 

Time  from  launch  at  which  the 
shadow  is  entered  and  thrusters 
become  inoperative. 

T0N 

0 

C 

Time  from  launch  at  which  the 
shadow  is  exited  and  the  thrusters 
become  inoperative  (includes  warm- 
up time). 

TQ 

0 

c 

Time  at  which  the  quartic 
equation  is  to  be  formulated. 

TRUEAN 

0 

c 

True  anomalies  of  shadow 
entrance  and  shadow  exit. 

T SHADE 

0 

c 

Actual  time  spent  in  shadow. 

TSHAD0 

0 

c 

Time  at  which  the  coarse  shadow 
tests  will  again  be  made. 

WARMUP 

0 

c 

Engine  restart  delay  time. 

Local  Variables : 

Variable 

Definition 

BETA 

True  anomaly  of  the  projection  of  the 
anti-sun  vector  in  the  orbit  plane. 

CAO 

Cosine  of  the  angle  between  the  S/C 
position  vector  and  the  anti-sun  vector. 

CBETA 

Cosine 

of  BETA. 

DBETA 

The  transit  angle  through  the  shadow. 

ECCANS 

The  eccentric  anomaly  of  the  projection 
of  the  anti-sun  vector  in  the  orbit  plane. 

ECTOOP 

Transformation  matrix  from  ecliptic  to 
orbital  plane  coordinates. 

P 

Unit  vector  in  the  direction  of  periapsis. 

PQ 

A six  vector  composed  of  the  elements  in 
vectors  P and  Q. 
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Variable 

Q 

RP 

RS 

S 

SMA 

SPR0J 

TBETA 

TFR0MP 

W 

Subroutines  Called: 

7 

Calling  Subroutines: 


SHAD0W-4 


Definition 

Unit  vector  in  the  direction  of  the 
velocity  vector  at  periapsis. 

Periapsis  radius. 

Radial  magnitude  at  a true  anomaly  of 
BETA  in  the  osculating  orbit. 

Anti-sun  vector. 

Semi-major  axis. 

Projection  of  the  anti-sun  vector  in 
the  orbital  plane. 

Time  from  periapsis  crossing  at  which 
the  S/C  will  pass  through  the  center 
of  the  shadow. 

Time  from  periapsis  crossing  locating 
the  S/C  in  the  orbit. 

Unit  momentum  vector. 

ANGM0D,  MMATB j NEGMAT,  0CCULT,  UD0TV,  UNITV,  UXV 
PATH 

C0NST , ENC0N,  EPHEM,  SHAD0W,  TRAJ1,  TRAJ2 , W0RK 


Common  Blocks : 


505-F 


SHADOW- 5 


Logic  Flow: 


SHAD0W 


S/C  is 
Currently 
Thrusting? 


Perforin  Coarsest 
Shadow  Test 


Orbit  May  Intersect 
Shadow? 


Perform  Coarser 
Shadow  Test 


Orbit  May  Intersect 
Shadow? 


Determine 

TShado 


RETURN 
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SHAD0W-6 


Is  S/C  Currently 
in  the  Shadow? 


4 


S0LAR-1 


ition  and  velocity  of  the  planets. 


Array  of  bodies  for  which  the 
position  and  velocity  are  to 
be  computed. 


Julian  Date  at  which  the 
position  and  velocity  are  to 
be  computed 


Array  of  position  vectors 


Array  of  velocity  vectors 
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3.6  Utility  Routines 

A number  of  subroutines  and  function  routines  are  used  in  each 
mode  that  are  (1)  standard  to  many  scientific  computer  programs,  or 
(2)  common  to  more  than  one  MAPSEP  mode.  These  utility  routines  are 
described  in  this  Section.  The  first  group  (3.6.1)  contain  relatively 
minor  and  straightforward  routines  that  perform  matrix  manipulation 
and  vector  operations.  The  second  group  (3.6.2  through  3.6.11) 
describe  more  complex  utility  routines,  all  of  which  apply  standard 
mathematical  techniques  to  compute  specific  parameters  required  by 
MAPSEP. 

3,6.1  Minor  Subroutines 

The  following  utility  routines  are  straightforward  in  usage  and 
internal  computation.  Their  description  consists  of  name  (and  any 
entry  points),  input  and  output  arguments,  and  function.  No  common 
blocks  are  contained  in  these  routines  and  all  are  subroutines  except 
UD0TV  and  VECMAG  which  are  function  routines. 


Subroutine 
(Entry  Points) 
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Function 


ADD 


ANGM0D 

C0FY(IC0PY) 


C0PYT 


EIGENV 


IDENT 
IN V SQM 


J0BTLE 

MAT0UT 


Arguments 

A,  B , C , 
M,  N 

ANG 


A,  B,  M,  N 


CT,  C,  M,  N 


A,  N,  F0D, 
W2,  V 


C,  N 

A,  N,  XB, 
RTEST,  IX, 
IY 


None 


A,  NR0W, 
NC0L,  LABEL 


ADD  performs  the  matrix  opera- 

tl0n  ^ MxN  = ^ MxN+  ^ MxN 
matrices 

ANGM0D  modulates  the  angle 
ANG  so  that  its  value  is 
between  0.  and  2 7T. 

C0PY  copies  a real  matrix  A 
into  matrix  B,  where  A and  B 
are  MxN . 

IC0PY  assumes  A and  B are  integer 
matrices . 

Copies  the  transpose  of  the  matrix 
CT  into  matrix  C,  where  CT  is  NxM 
and  C is  MxN. 

EIGENV  computes  the  eigenvalues 
and  eigenvectors  of  a N X N matrix  A, 
using  Jocobi’s  method  of  successive 
rotations.  F0D  is  the  tolerance  for 
the  off  diagonal  elements  of  A. 

The  eigenvalues  and  eigenvectors 
are  returned  in  the  vector  arrays 
W2  and  V,  respectively. 

Creates  an  NxN  identity  matrix  C. 

INVSQM  inverts  an  NxN  matrix  A 
by  the  Gauss-Jordan  elimination 
method.  The  results  are  returned 
in  A.  INVSQM  requires  four  Nxl 
vectors,  XB,  RTEST,  IX  and  IY, 
for  temporary  storage  (to  keep 
core  requirements  to  a minimum). 

J0BTLE  is  -used  by  G0DSEP  to  eject 
a page  and  to  print  out  the  job 
title,  a row  of  asterisks  and  the 
trajectory  time. 

MAT0UT  prints  a matrix  A,  NR0WxNC0L,' 
with  a 6 character  Hollerith  label, 
LABEL. 


A,  B,  C,  M, 
L,  N 


MMAB  performs  the  matrix  operation 
MxN~  t A1mxL*  t B1  LxN  * 


AMAB  performs  the  matrix  operation 

^MxN  * ^MxN  + lAl*&L*  1BJlxN 


MMAB  (AMAB) 
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Subroutine 
(Entry  Points) 

mmabat 

(AMABAT) 


MMABT  (AMABT) 


MMATB  (AMATB) 


MMATBA  (AMATBA) 


MMATBT  (AMATBT) 


Arguments 

A,  B,  C, 
M,  L,  N 


A,  B,  C, 
M,  L,  N 


A,  B,  C, 
M,  L,  N 


A,  B,  C, 
M,  L,  N 


A,  B,  C, 
M,  L,  N 


Function 


MMABAT  performs  the  matrix 
operation 

MxL 

WteL*WSxL  (NOte:  N 

is  not  used). 

AMABAT  performs  the  matrix 
opera  tion  t^MxM  ~ ^ MxM 

MmxL  * * 1A]Ll. 


MMABT  performs  the  matrix 
operation  lC'lMxN  = 

tBl  Ll- 

AMABT  performs  the  matrix 
operation  [c] 

Mv  TJ  tc] 

MxN  + 

W 


MxL 


MxN 

Wlv 


MMATB  performs  the  matrix 
operation  “ [Al£xM  * 

1B^LxN’ 

AMATB  performs  the  matrix 
opera  tion  [Cl 

MvM  1C^MvN  + 


* « 


MxN 

LxN* 


MMATBA  performs  the  matrix 
operation  [c]^  - [A]JxM  " 

Mi*.  * uw  Note:  N 

is  not  used. 

AMATBA  performs  the  matrix 
operation  [C]^  = [c]^  - 

t^LxM  * 1B^LxL  * ^A^LxM* 


MMATBT  performs  the  matrix 
‘MxN 


operation  [c]MvM  - 1A1lxM  * 


ML- 

AMATBT  performs  the  matrix 
operation  [c]MvM  = [C]M^N  + 

uiL.  * w 


,MxN 

'l 

NxL. 
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Subroutine 
(Entry  Points) 

NEGMAT 

SCALE 

SDVAR  (VARSD) 


SUB 

SUBT 


Arguments 


Function 


A,  C,  M,  N NEGMAT  negates  a matrix  such 

that  ^MxN  = ' 1A1mxN. 


FACTOR,  A, 
M,  N,  B 


C0VIN, 
C0V0UT , N 


A j B , C , 
M,  N 


A,  B,  C, 
M,  N 


SCALE  multiplies  a matrix  A by 
a scalar  FACT0R  and  returns  the 
result  in  a matrix  B,  [BL,  ..  = 

FACTOR*  l Al^.  *** 

SDVAR  takes  an  NxN  matrix 
C0VIN  of  standard  deviations 
and  correlation  coefficients, 
and  operates  on  the  lower 
triangle  of  C0VIN  to  create  a 
full  covarfpnce  matrix  C0V0UT. 
VARSD  takes  an  NxN  covariance 
matrix  C0VIN  and  operates  on 
the  upper  triangle  to  create 
a matrix  C0V0UT,  where  only 
the  upper  triangle  contains 
the  cprrelationgcoef ficients , 
the  diagnel  the  standard  devi- 
ation and  the  lower  triangle 
remains  unchanged. 

SUB  subtracts  matrix  B from 
matrix  A and  returns  the  results 
as  matrix  C.  The  dimensions  of 
A,  B,  and  C are  MxN . 

T 

SUBT  subtracts  matrix  B from 
matrix  A and  returns  the  results 
as  matrix  C.  The  dimensions  of 
A and  C are  MxN,  B is  NxM. 
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Subroutine 
(Entry  Points) 

SYMTRZ 

(SYMI0,  SYMUP) 


UD0TV 


UNITY 


uxv 


VECMAG 


Arguments 
PSYM,  N 


U,  V 


u,  uv 


U,  V,  w 


u 

A,  MR0W, 
HC0L 


Function 


SYMTRZ  takes  an  NxN  matrix 
PSYM  and  makes  it  symmetric  by 
averaging  each  corresponding 
off-diagonal  pair. 

SYML^  takes  an  NxN  matrix  PSYM 
and  makes  the  upper  triangle 
equal  to  the  lower  triangle, 
SYMUP  takes  an  NxN  matrix  and 
makes  the  lower  triangle  equal 
to  the  upper  triangle. 

UD0TV  performs  the  vector 
operation  U • V,  for  three 
dimensional  vectors. 

UNITV  take  a three  dimensional 
vector  U and  makes  it  a unit 
vector  UV. 

UXV  performs  the  vector  opera- 
tion UxV  - W , for  three  dimen- 
sional vectors. 

VECMAG  computes  the  magnitude 
of.  a three  dimensional  vector. 

ZER0M  creates  a MR0W  x MC0L 
null  matrix  A. 


ZER0M 
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3.6.2 
Purpose : 


Method : 


BPLANE-1 


Subroutine;  BPLANE  (R,  V,  TO,  NTP,  IEQ) 

To  compute  the  trajectory  termination 
conditions  relative  to  the  target  body 
(i.e.,  Earth) 

Given  the  spacecraft  planetocentric  ecliptic 
position  and  velocity  vectors,  r_  and  v 
respectively,  at  time  t relative  to  the 
Earth,  compute  all  trajectory  termination 
conditions*  Using  the  orbital  elements 
(a,  e,  i,  , , M) , calculated  from  the 

conic  formulas  of  Section  3.6.4,  the 
closest  approach,  or  periapsis,  conditions 
may  be  formulated. 


rCA  = a(1  ‘ e) 


Delete  Pages  513  and  514. 
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BPLANE-2 


cosE 


(1 


e’sinE  - 


r • v 


sinE 

tanE  " 


M = E - e sinE 


t 


CA 


t 


M 

n 


The  apoapsis  conditions  are  then 


RpA  = a (1  + e) 

vFA  = (d  + & M/^A)h 

q h 

p = 2 TT^r-) 


Remarks : B-PLANE  also  contains  the  necessary  logic  to  compute  B-plane 

parameters  if  the  orbit  is  hyperbolic. 


Input/Output : 
Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

R 

I 

A 

Position  vector  relative 
to  the  target  body. 

V 

I 

A 

Velocity  vector  relative 
tc  the  target  body. 

TO 

I 

A 

Time  associated  with  R and 
V. 

BDT 

0 

C 

B • To 
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BPLANE-3A 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

IEQ 

I 

C 

Flag  indicating  whether  the 
input  state  is  ecliptic 
(IEQ  =0)  or  equatorial 
(IEQ  = 1) 

RFA 

0 

C 

Apoapsis  radius. 

VFA 

0 

c 

Apoapsis  velocity. 

TFA 

0 

c 

Time  of  apoapsis  crossing. 

PERE0D 

0 

c 

Orbital  period. 

REQ 

0 

c 

Equatorial  position  to  S/C. 

VEQ 

0 

c 

Equatorial  velocity  of  S/C. 

EQL0N 

0 

c 

Equatorial  geocentric 
longitude. 

EQLAT 

0 

c 

Equatorial  geocentric 
latitude. 

0 
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BPLANE-38 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

BDR 

0 

C 

B • R. 

TS0I 

0 

c 

Time  at  the  sphere  of  influ- 
ence>  tSOI" 

NTP 

I 

A 

Number  of  the  target  body. 
This  flag  is  used  to  locate 
the  SOI  size  and  mass  of 
the  target  body  in  the  SPHERE 
and  PMASS  arrays. 

VHP 

0 

C 

Hyperbolic  excess  velocity, 

V,  • 
hp 

FI 

I 

c 

3.14159 

PMASS 

I 

c 

Array  containing  the  masses 
of  the  planets. 

SPHERE 

I 

C 

Array  containing  the  sphere 
sizes  of  the  planets. 

VCA 

0 

C 

Velocity  at  closest  approach. 

RCA 

0 

C 

Radius  of  closest  approach. 

TCA 

0 

C 

Time  of  closest  approach. 

A 

0 

c 

Semi -major  axis  of  the  oscu- 
lating conic. 

E 

0 

c 

Eccentricity  of  the  osculating 
conic. 

XINC 

0 

c 

Inclination  of  the  osculating 
conic  o 

^MEGA 

0 

c 

Longitude  of  the  ascending 
node . 

S0MEGA 

0 

c 

Argument  of  periapsis. 

XMEAN 

0. 

c 

Mean  anomaly. 

517 


B PLANE -4 


Variable 

Input/ 

Output 

Argument/ 

Common  Definition 

. TA 

0 

C True  anomaly. 

BIG 

I 

c 1030. 

Local  Variables: 

Variable 

Definition 

GMU 

Mass  of  the  target  body. 

RS 

SOI  size  of  the  target  body. 

XN 

Inverse  of  the  mean  motion,  n 

A 

SV 

s 

* 

BV 

B 

B 

IB  | 

TMAG 

/S| 

A 

RVX,  RVY, 

RVZ 

Components  of  R 

A- 

THETA 

Angle  between  B and  the  T axis. 

C0SHF1 

cosh  F 

C0SH2 

cosh  FSOI 

SINF1 

sinh  F 

SINF2 

sinh  FS0I 

FI 

F 

F2 

F 

SOI 

DT 

Time  from  the  sphere  to  r_a 

CE 

cos  E 

SE 

sin  E 

ECC 

E 

XM 

Mean  anomaly,  M 
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Subroutines  Called:  C0NIC, 

Calling  Subroutines:  TC0MP, 


ANGM0D 


Common  Blocks : 


C0NICS,  C0NST,  EPHEM,  TARGET 
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3.6.3  Subroutine : 
Purpose: 


Method : 


CARTES  (A,-  E,  XI,  W,  XM,  GMU,  R,  V) 

To  compute  the  cartesian  state  vector  corres- 
ponding to  a set  of  orbital  elements  at  a given 
time.  Time  is  implicit  in  the  Mean  Anomaly  XM. 
Conic  Formulae  for  Elliptic  and  Hyperbolic 
Motion. 


Innut/Output : 

Variable 

A 

E 

XI 

4 

w 

GMU 

R 

V 

PI 

XM 

Local  Variables: 
Variable 
ITT 
NITT 
FP 


I/O 

I 

I 

I 

I 


I 

I 

0 

0 

I 

I 


Argument/ 

Common 

A 

A 

A 

A 

A 

A 

A 

A 

C 

A 


Definition 
Semi-major  Axis  (a) 
Eccentricity  (e) 
Inclination  (i) 

Longitude  of  the  Ascending 
Node  (ft) 

Argument  of  Periapsis  M 
Gravitational  Constant  (y)  > 
Position  Vector  (r) 
Velocity  Vector  (v) 

3 . 14159 

Mean  Anomaly  (M) 


Definition 

Iteration  counter  for  Kepler's ‘Equation 


Maximum  iterations  for  Kepler's  Equation 
Derivative  of  jCepler's  Equation  (f  (x^) ) 


521 


CARTES -2 


Variable 

ECC 

FN 

SQE 

TA 
• RM 
SINHE 
C0SHE 
SINHEC 
C0SHEC 
P 

TH 

. C0STH 
SINTH 
C0S0 
SIN0 
C0SW 
C0SI 
SINI 
VA 
VB 
VC 


Definition 

Eccentric  Anomaly  (x  ) 

n 

Kepler’s  Equation  (fCx^)) 


True  Anomaly 

Magnitude  of  the  Position  Vector 


XM/E 

f J""1 

yf  1+SINHE 

Hyperbolic  Sine  of  ECC 
Hyperbolic  Cosine  of  ECC 
Semi-la tus  Rectum 
Argment  of  Latitude 
Cosine  of  TH 
Sine  of  TH 
Cosine  of  <J> 

Sine  of  4> 

Cosine  of  W 
Cosine  of  XI 
Sine  of  XI 


SINTH  + E * SINW 


C0STH  + E * C0SW 
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Remarks : 


Given: 


Find: 


The  orbital  elements  a,  e,  i,  m and  the 
gravitational  constant  y. 

The  position  r_  and  the  velocity  v^ 

First  we  must  find  the  eccentric  anomaly  E for 
the  elliptical  case  and  H for  the  hyperbolic 
in  terms  of  M,  the  mean  anomaly.  For  the 
elliptical  case 
M = E - e'sin  E 
and  for  the  hyperbolic  case 

M - e*sinh  H - H 

Since  both  equations  are  transcendental  we  must 
solve  them -interatively . The  method  used  to 
solve  these  equations  is  Newton’s  Method  of 
the  form 


f (x 


n) 


xn+l  Xn  ~ f ’ (x^) 


Therefore,  for  the  elliptical  case  the  expression  is 


E -e*sinE  -M 
n n 

En+1  ” n l-e*cosE 


and  for  the  hyperbolic  case  the  expression  is 

e*sinh  H -H  -M 
n n 

^n+1  n e*cosh  H -1 

Depending  on  the  kind  of  orbit  defined  by  the  orbital  elements, 
the  appropriate  equation  is  iterated  upon  until 

|f(x)|<  10" 10 
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fW-  < io‘10 
f'00|“ 

for  a finite  number  of  iterations. 


Now  that  we  have  E or  H we  can  find  r_  and  _v 
from  the  following  equations: 


Elliptical 


tan  c|)  = tan  (f) 

r s a (l-e*cosE) 
p = a (1-e2) 


tan  ( 


Hyperbolic 


!>  - (S)- 


p “ a (e  -1) 


cosft*cos9  - sinft *sin9 *cos  i 
r = r sinft  * cosQ  . + cosf2*sin0  *cos  i 


sin0«sin  i 


where  6 - w + f 


cosfl (sin0  + e*sinai)  + sinft-cos  i (cosS  + e*cosw) 
v = [p  sina(sin0  4-  e-sinm)  - cosft*cos  i (cos0  + e*cosu)} 
- (cos0  + e*cosu))*sin  i 


ro 
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Subroutines  Called:  None 

Calling  Program:  EPHEM 

Common  Block:  C0NST 
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3*6.4  Subroutine: 

Purpose: 

Method: 

Remarks : 

Given: 

Find: 


CtfNIC  (R,  V,  GMU,  A,  E,  XINC,  /MEGA,  S/MEGA, 
XMEAN,  THETA) 

To  compute  the  orbit  elements  given  a state 
vector  and  the  corresponding  time. 

Conic  Formulae  for  Elliptic  and  Hyperbolic 
motion. 


The  position  vector  r,  the  velocity  vector  v 
and  the  gravitational  constant  p. 

The  orbital  elements  a,  e,  i,  ft  w and  M 
and  also  6 
h “ £_  x v 
w = h/h 
r - r * v 

v 

e = — (v  x h)  - r/r 

- V — — 


p = h/y 


p_  = e/e 
q = w X p_ 

h*^v 

sine  = — 

h2-  P 

COS0  = — 
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Now 


1 

a = — 
a 


e = 

|e| 

-1 

c«z) 

i = 

cos 

Q * 

-1 

tan 

(wx/~wy) 

to  — 

-1 

tan 

(pz/qz) 

6 = 

-1 

tan 

(sin6/cos0) 

cosE  = 1 - r*a 


r .a 

v 

sinE  = 

vi 


for  the  elliptical  case 
E - tan~*  (sinE/cosE) 

M - E - e'SinE 


for  the  hyperbolic  case 

sinhH  - sinE/e 

coshH  - cosE/e 

H = ln(sinh  H - cosh  H) 


Input /Output : 

Variable 

R 

V 

TO 

GMU 

A 

E 

XINC 


M = e ‘sinh  H - H 


I/O 

I 

I 

I 

I 

0 

0 

0 


Argument/ 

Common 

A 

A 

A 

A 

A 

A 

A 


• Definition 
Position  Vector  (r) 
Velocity  Vector  (v) 

Time  Corresponding  to  r_  and 
Gravitational  Constant  (u) 
Semi-Major  Axis  (a) 
Eccentricity  (e) 
Inclination  of  the  orbit 
plane  (i) 
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Variable 

I/O 

•Argument/ 

Common 

OMEGA 

0 

A 

S OMEGA 

0 

A 

XMEAN 

0 

A 

PI 

I 

C 

C0NIC-3 

Definition 

Longitude  of  the  Ascending 
Node  (ft) 

Argument  of  the  Periapsis  (m) 
Mean  Anomaly 
3.14159 


Local  Variables: 
Variable 
H 

HV 

wv 

RM 

VM 

RDV 

EV 

AA 

P 

PV 

QV 

THETA 

STH 

CTH 

ECC 

CE 


Definition 

Magnitude  of  the  Angular  Momentum 
Vector  (h) 

Angular  Momentum  Vector  (h) 

Unit  Vector  in  the  direction  of  (w) 

Magnitude  of  r^ 

Magnitude  of  v 

r_*v_ 

e_ 

1 

a 

Semi-Latus  Rectum 
e/e 

h x (e/e) 

Argument  of  latitude 
Sine  of  THETA 
Cosine  of  THETA 
Eccentric  Anomaly ' 

Sine  of  ECC 
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Variable 

Definition 

SE 

Cosine  of  ECC 

FCC 

Hyperbolic  Anomaly 

CHF 

Hyperbolic  Sine  of  FCC 

SHF 

Hyperbolic  Cosine  of  FCC 

Subroutines  Called:  UXV,  VECMAG , UNITV,  UD0TV 

Calling  Subroutines:  BPLANE,  PR0P,  EPHERR,  0D,  PGM,  DATAT,  FEGS 
Common  Blocks • C0NXCS,  Q0NST 
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3.6.5  Subroutine  r 


EC0MP  (XX,  VV,  TST0P,  NTARG,  NTP,  LI  STAR,  ETA) 


Purpose : 


To  compute  the  transformation  matrix  which  transforms 
state  vector  deviations  into  target  variable 
deviations  at  the  target  time;  namely 


1 


d(T . , T T ) 

l c m 

<^(X,  Y,  Z,  X,  Y,  Z) 


(mx6) 


Method : 


Remarks : 


Input/Output: 

Variable 


XX 


where  m is  the  number  of  target  variables. 

Small  changes  to  the  trajectory  state  vector  at 
the  target,  time  permit  this  transformation  matrix  to 

be  computed  by  numerical  differencing.  Central 
difference  partial  derivatives  are  used. 

Currently,  the  state  vector  deviations  used  to 
generate  the  numerical  partials  are  10  km  for 
position  and  10  m/sec  for  velocity.  For  some 
applications,  in  particular  for  missions  to  the 
inner  planets  (Mercury  and  Venus),  these  values 
may  have  to  be  reduced. 


Input/  Argument/ 

Output  Common Definition 

I A State  vector  position 

components. 

A 


'i 


vv 


i 


State  vector  velocity 
components. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

TST0P 

I 

A 

Epoch  of  state  vector 
evaluation;  generally  the  target 
time . 

LI STAR 

I 

A 

List  of  target  variable  codes 
to  be  passed  to  TC0MP. 

NTARG 

I 

A 

Number  of  target  variables. 

NTP 

I 

A 

.Target  planet  number. 

ETA 

0 

A 

- matrix  of  partial 
derivatives . 

. Variables : 

Variable 

Defini tion 

DEL 

State  vector  perturbations. 

XT1 

Backward 

step  target  variables. 

■ XT2 

Forward 

step  target  variables. 

Subroutines  Called: 
Calling  Subroutines r 
Common  Blocks: 

Logic  Flow:  : 


TC0MP 

LGUID,  NGUID,  GUIDE,  NLGUID,  REFTRJ,  STWTAR 
W0RK 
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3.6.6  Subroutine : 
Entry  Points: 
Purpose : 

Method : 

Input/Output : 
Variable 

T 

TST0P 
NPRI 

PMASS 

ALPHA 
UTRUE 

VTRUE 

UENC 

UENCM 
VENC 

Kencm 

Local  Variables: 
Variable 
* TZER0 
GMU 


ENC0N  (T) 


REFINE,  0SCUL 

To  propagate  the  reference  conic  from  rectification 
to  time  t . 


Conic  equations  for  elliptical  and  hyperbolic  orbits. 
See  MAPSEP  Analytic  Manual  (Reference  1), 

Appendix  1 (Section  9.1). 


Input/  Argument/ 

Output  Common Definition 


I 

I 

I 

I 

0 

I 

I 

0 

0 

0 

0 


A 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


Trajectory  time  in  seconds 

The  sign  of  TST0P  determines 
whether  the  propagation  is 
backwards  (-)  or  forwards  (+). 

A flag  that  is  used  to  locate 
the  mass  of  the  primary  body 
in  the  PMASS  array. 

Array  containing  the  masses 
of  all  the  bodies. 


Position  vector  at  rectifica- 
tion (r  ), 
o 

Velocity  vector  at  rectifi- 
cation (V  ). 

o 

Osculating  conic  position 
vector  at  time  t. 

Magnitude  of  UENC. 

Osculating  conic  velocity 
vector  at  time  t. 

Magnitude  of  VENC. 


Definition 


Time  of  rectification  (t  ). 

o 

Mass  of  the  reference  body. 


* actually  contained  in  C0MM0N/ ENC0N / 
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Variable 

* UZER0 

* VZER0 
CZER0 

UALPHA 

* UBETA 
BETA 

* A1 

* A2 

* A3 

Cl 

C2 

* DELE 

* X 

* HV 

* EC CITY 

* EV 

* EZER0 

* HM 
ARG1 

* actually 


Definition 

Position  vector  at  t , (r  ) . 

o — o 

Velocity  vector  at  (r^) . 

1 + e cos  Eq  for  the  elliptical  case. 

1 + e cosh  H for  the  hyperbolic  case, 
o 

1 - e cos  Eq  for  the  elliptical  case. 

e cosh  H - 1 for  the  hyperbolic  case, 
o 

Absolute  value  of  UALPHA. 

Absolute  value  of  ALPHA. 

Mean  angular  motion  (n) . 

e sin.  E for  the  elliptical  case, 
o 

e sin  H for  the  hyperbolic  case* 
o 

e cos  E^  for  the  elliptical  case, 

e cosh  Hq  for  the  hyperbolic  case. 

e exp  [ Ho~)for  the  hyperbolic  case, 

e exp  [-Ho]for  the  hyperbolic  case. 

E -E  for  the  elliptical  case. 

exp  [h  -H  ] -1  for  the  hyperbolic 

case. 

The  angular  momentum  vector  (r  x v ). 

o o 

Orbital  eccentricity  of  reference 
conic . 

"Eccentricity"  vector. 

Reference  eccentric  anomaly. 

Magnitude  of  HV. 

1 - — r 1 - cos  (E  -E  ) 1 for  the 

r l o J 

o 

elliptical  case, 
contained  in  C0MM0N/ENC0N/ 
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Variable 


Definition 


ARG2 


ARG3 


ARG4 


X - — [ cosh  (H  -H  ) -1 1 for  the 
r L o * 

o 

hyperbolic  case. 


— f sin(E  -E  ) -e  (sin  E - sinE  )1 
n L o o J 

for  the  elliptical  case. 

~je  (sinh  H '-sinh  Hq)  -sinh  (H  -Hq)] 
for  the  hyperbolic  case. 


Jm7 

• Tr“ 

o 

case. 


sin  (E  -E  ) for  the  elliptical 
o r 


a 

rr 

o 

case. 


sinh  (H  -H  ) for  the  hyperbolic 


1 - ~ [l  - cos  (E  -*EQ)Jfor  the 
elliptical  case. 

1 *—  [ cosh  (H  -H  ) -1 1 for  the 

r 1 o J 

hyperbolic  case. 


Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 


VECMAG,  UXV,  UD0TV 
M0TI0N 

C0NST,  ENC0N,  EPHEM,  TIME,  TRAJ1 , TRAJ2 
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3.6.7  Subroutine:  GENINV  (A,  M,  N,  B) 


Purpose : 
Remarks : 


To  compute  an  inverse  B for  any  m x n matrix  A. 
There  are  three  cases  for  which  GENINV  will 
compute  an  inverse. 

Case  1:  m K.  n 


■- 

m -1 

B 

- at[aat] 

Case  2: 

m 

= n 

, -1 

B 

= A 

Case  3: 

m 

7 n 

B 

= [ata]  at 

The  matrices  A and  B can  share  the  same  location 
only  if  m = n. 


Input/Output: 


Variable 


Input/  Argument/ 

Output  Common 


Definition 


A 

M 

N 

B 


I 

I 


A The  matrix  to  be  inverted. 

A Number  of  rows  in  A (Columns 

in  B). 

Number  of  columns  in  A 
(Rows  in  B) . 

A Inverse  of  A. 


Local  Variables: 
Variable 


Definition 


W0RK 


Array  used  for  temporary  calculations 


Variable 

MIN 

L0C 

Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 

Logic  Flow: 
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Definition _ 

, Number  of  needed  locations  for  tempo- 
rary calculations. 

Number  of  needed  locations  for  the 
inverse, 

C0PY,  MMABT,  MMATB,  INVSQM 
GUIDE,  LGUID,  NLGUID 
W0RK 
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3-6,8  Subroutine : MPAK  (A,  M,  N,  ASUB,  MSUB,  NSUB) 


MPAK  is  used  to  (1)  copy  subblocks  of  matrix  A into  a 
matrix  ASUB,  (2)  copy  the  diagonal  elements  of  mattix  A 
into  ASUB  which  can  be  a vector  (or  row  matrix)  or 
(3)  “pack"  the  matrix  A,  M and  N are  the  dimensions 
of  A,  and  MSUB  and  NSUB  are  the  dimensions  of  ASUB. 

An  mxn  matrix  is  stored  internally  in  the  computer  by 
columns.  Take  the  3x3  matrix 


E = e 


;11 

e12 

e13 

21 

e22 

cn 

CM 

<u 

31 

e32 

e33 

In  the  computer,  E is  stored  as 


Column  1 


Column  2 


Column  3 
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MPAK  uses  this  information  to  perform  one  of  the  three 


following  cases,  (1)  to  copy  sub 

blocks  of 

E,  (2) 

copy  the  diagonal  elements  of  E, 

and  (3)  to  pack 

Case  1:  Given  a 3 x 3 matrix 

‘ m 

e12 

e13 

E * 

e2i 

e22 

e23 

e31 

e32 

e33 

copy  the  sub  block 

F = 

e21 
. e31 

e32 

into  the  2x2  matrix  F.  In  order  to  accomplish  this, 
MPAK  must  know  the  first  element  of  the  sub  block  to 
be  copied.  For  this  problem,  it  is  The  FORTRAN 

call  to  MPAK  must  transmit  this  information.  Such  a 
call  would  be 

CALL  MPAK  (E(2 , 1) , 3,  3,  F,  2,  2) 


Case  2:  Given  a 2 x 2 matrix 


A » 


all  a12 

a21  a22  . 


copy  the  diagonal  terms  a ^ and  into  tlie  2 x 1 row 

vsctor  B.  The  call  to  MPAK  is 


CALL  MPAK  (A,  3,  2,  B,  1,  2) 
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Case 


The  dimension’  of  A is  given  as  3 x 2.  Internally  in 
the  computer,  A is- thought  of  as  being  stored 


Column  1 

a2 1 
a12 

Column  2 ^22 


This  particular  call  makes  MPAK  copy  the  elements  an 
and  a22  i-nto  ® ♦ 


3:  Given  the  3 x 3 matrix 


pack  it  so  that 


A = 


Pack  as  used  here,  me a 
of  A into  consecutive 


d o 

o o 

o o . 

ns  to  order  the  nonzero  elements 
locations  internally.  If 
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than  packing  A would  result  in 


The  appropriate  call  to  MPAK  would  be 
CALL  MPAK  (A,  3,  3,  A,  2,  2) 

for  the  first  example  (3  x 3 A) , and  for  the  second  example. 
CALL  MPAK  (A,  4,  4,  A,  3,  3) 


ASUB  0 

MSUB  I 

NSUB  I 


A The  resultant  matrix 

A The  number  of  rows  of  ASUB 

A The  number  of  columns  of  ASUB 


Local'  Variables:  None 

Subroutines  Called!  None 

CaHl'ing  Subroutines:  SIZE,  SDAT,  (GODSEP,  et  aL) 

Common  Blocks : None 


t 


3.6.9 

Purpose 


Method : 


546  MUNPAK- 1 

Subroutine:  MUNPAK  (ASUB,  MSUB,  NSUB,  A,  M,  N) 

MUNPAK  is  used  to  copy  a matrix  ASUB  into  a 
large  matrix  A,  to  copy  a row  matrix  ASUB  onto 
the  diagonal  of  A or  to  "unpack"  the  matrix 
ASUB. 

MUNPAK,  like  MPAK  takes  advantage  of  the  way  a 
matrix  is  stored  internally  in  a computer. 

MUNPAK  performs  the  reverse  function  of  MPAK: 

(1)  copy  a matrix  into  a larger  matrix,  (2) 
copy  a row  matrix  onto  the  diagonal  of  a matrix 
or  (3)  unpack  the  matrix. 

Case  1:  Copy  a 2x2  matrix 


1 


all 

S12 

. a21 

a22  - 

into  a 3x3  matrix  B so  that 

’ B - [ 0 0 0 

a12 

a21  a22 

This  is  accomplished  by  specifying  where  the 
first  element  of  A is  to  be  located  in  B.  .The.  - 
FORTRAN  call  to  MUNPAK  is  - . 
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CALL  MUNPAK  (A,  2,  2,  B (2,  2),  3,  3) 
Case  2:  Copy  the  1x2  row  matrix 

A * [ all  a12  1 


into  the  2x2  matrix  B.  In  the  call  to  MUNPAK, 
the  dimensions  of  B are  given  as  a 3x2.  The 
net  result  is 


an  0 


12 


The  call  to  MUNPAK  is 

CALL  MUNPAK  (A,  1,  2,  B,  3,  2) 
Case  3:  Given  the  3x3  matrix 


d 

0 

0 


"unpack”  it  so  that 


c 

d 

0 
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Input/Output ; 

Variable 

ASUB 

MSUB 

NSUB 

A 

M 

N 


The  call 

to  MUNPAK  to 

accomplish  this  operation 

is 

CALL 

MUNPAK  (A, 

2\  2,  A,  3,  3). 

Input/ 

Argument/ 

r 

Output 

Common 

Definition 

I 

A 

The  matrix  to  be  operated 

on. 

I 

A 

The  number  of  rows  of  ASUB. 

I 

A 

The  number  of  columns  of 

ASUB. 

0 

A 

The  resultant  matrix. 

I 

A 

The  number  of  rows  of  A. 

I 

A 

The  number  of  columns  of  A. 

local  Variables:  None 

Subroutines  Called!  None 

Calling  Subroutines:  SIZE,  SDAT,  (G0DSEP,  et  al.) 

Common  Blocks: 


None 
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3.6.10  Function: 
Purpose : 

Method : 


Input/Output : 

Variable 

SIGMA 

IRAN 

RNUM 

Loca 1 Variables  : 
Variable 
D1 

D2 


RNUM  (SIGMA,  IRAN) 

To  sample  a uniform  distribution  and  generate 
random  samples  on  a Gaussian  distribution. 

Two  random  samples  from  a uniform  distribution 
are  made  to  form  a random  sample  on  a zero-mean, 
Gaussian  distribution  which  has  a unit  standard 
deviation.  The  random  variable  on  the  Gaussian 
distribution  is  scaled  according  to  the  input 
standard  deviation,  SIGMA,  For  IRAN  equal  to 
zero,  a one-sigma,  forced  Monte  Carlo  sample  is 
computed  and  returned. 

Input/  -Argument/ 

Output Common Definition 

X A Standard  deviation  of  the 

random  variable  being 
sampled . 

X A Flag  to  indicate  whether 

or  not  a forced  Monte  Carlo 
sample  is  to  be  returned. 

0 A Resultant  random  variable. 


Definition 

First  random  sample  from  a uniform 
distribution. 

Second  random  sample  from  a uniform 
distribution. 


Subroutines  Called: 


RANF 
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RNUM-2 


CSAMP,  EXGUID,  EPHSMP,  ERRSMP,  DN0ISE 
C0NST 
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TC0MP-1 


3.6.11  Subroutine:  TC0MP  (XX,  W,  TST0P,  NTP,  NTARG,  LESTAR,  XTARG, 

IPASS) 

Method : The  BPLANE  utility  routine  is  called  to  compute 

osculating  values  of  target  variables  correspond- 
ing to  a given  state  vector*  Individual  target 
values  are  loaded  into  a target  vector  according 


Input/Output : 
Variable 

to  the 

Input/ 

Output 

target  codes 

Argument 

Common 

in  the  LISTAR  array. 
Definition 

XX 

I 

A 

State  vector  position  components 

W 

I 

A 

State  vector  velocity  components 

TST0P 

I 

A 

Epoch  corresponding  to  the  state 
vector;  generally  the  target  time. 

NTP 

I 

A 

Number  of  the  target  planet. 

NTARG 

I 

A 

Number  of  target  variables. 

LI STAR 

I 

A 

List  of  target  variable  codes. 

XTARG 

0 

A 

Target  vector. 

IPASS 

I 

A 

Flag  to  control  logic  transfer. 

VHP 

I 

C 

Hyperbolic  excess  velocity. 

RCA 

I 

C 

Radius  of  closest  approach. 

BDT 

I 

c 

T-coordinate  in  the  B-plane. 

BDR 

I 

c 

R-coordinate  in  the  B-plane. 

TS0I 

I 

c 

Conically  interpolated  time  of 
arrival  at  the  sphere  of 
influence. 
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Variable 

Input/ 

Output 

Argument 

Common 

Definition 

TCA 

I 

C 

Conically  interpolated  time 
of  arrival  at  the  radius  of 
closest  approach. 

A 

I 

C 

Semi-major  axis  evaluated  on 
an  osculating  conic. 

E 

I 

c 

Eccentricity  evaluated  on  an 
osculating  conic. 

XXNC 

I 

c 

Inclination  evaluated  on  an 
osculating  conic. 

0MEGA 

I 

c 

Argument  of  the  ascending 
node  evaluated  on  an  oscu- 
lating conic. 

S0MEGA 

I 

c 

Argument  of  periapsis  evalu- 
ated on  an  osculating  conic. 

XME  AN 

I 

c 

Mean  anomaly  evaluated  on  an 
osculating  conic. 

TA 

I 

c 

True  anomaly  evaluated  on  an 
osculating  conic 

Local  Variables: 

None 

Subroutine  Called 

: B PLANE 

, VECMAG 

Calling  Subroutines:  EC0MP, 

NLGUID, 

REFTRJ,  SIMSEP,  STMTAR,  TREK 

Common  Blocks: 

C0NST, 

TARGET 

Logic  Flow: 


See  Listing 


Page  553  has  been  deleted. 


THC0MP-1 


'5.0.  I S ub  r < j t i 
Purpose : 

Method: 

Remarks : 

Input/Output: 

Variable 

XIN 

MIN 

NPRIN 

NATO 

IJU 

TG0 
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_e:  THC0MJ'  <YiU,  MJN,  NM<IN,  NATC , UH,  TG0,  THALT, 
IMAN,  X0UT,  M0UT , THETA,  PHI) 

To  complete  the  & and  $ matrices  which  are 

u 

used  for  trajectory  targeting  over  a specified 
trajectory  arc . 

THC0MP  computes  and  stores  certain  partitions 

of  the  augmented  state  transition  matrix  into 

the  (^)  and  ^ matrices  as  outlined  in  Appendix 

7 of  the  Analytic  Manual. 

This  routine  is  used  by  T0PSEP  and  SIMSEP  for 

eva lua  t ing  0 and  ? . T0PSEP  also  has  an 
u 

alternate  set  of  logic  which  uses  a numerical 
differencing  algorithiir.  for  the  same  purpose. 
SIMSEP  uses  THC0MP  exclusively. 


Input/ 

Output 


Argument/ 

Common 


De  f init ion 


Initial  state  vector. 

Initial  S/C  mass. 

Primary  body  code  to  which 
XIN‘  is  referenced. 

Number  of  active  thrust 
con  trols . 

Array  of  active  thrust 
control  codes . 


Initial  trajectory  time. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

De  f inition 

THALT 

I 

A 

Final  trajectory  time. 

IMAN 

I 

A 

Guidance  maneuver  number. 

X0UT 

0 

A 

Output  state  vector. 

M0UT 

0 

A 

Output  S /C  mass . 

THETA 

0 

A 

Output  control  to  state 
transition  matrix.® 

u 

PHI 

0 

A 

Output  state  to  state 
transition  matrix,^ 

THRUST 

I 

C 

Array  of  thrust  controls. 

BLANK 

I 

C 

Blank  common  storage  of 
trajectory  variables,  i.e, 
the  augmented  state  transi- 
tion matrix. 

TEVNT 

I 

C 

Trajectory  event  time. 

MEVENT 

I 

C 

Trajectory  event  test  flag. 

L0CTC 

I 

c 

Location  in  blank  common  of 
the  first  element  in  the 
augmented  state  transition 
matrix. 

IAUGDC 

I 

c 

Flag  used  to  augment  the 
transition  matrix  for  inte- 
gration . 

TREF 

I 

c 

Initial  trajectory  time 
transmitted  to  TRAJ  in  sec- 
onds . 

TDUR 

I 

c 

Final  trajectory  time  trans- 
mitted to  TRAJ  in  seconds. 

INTEG 

I 

c 

Flag  to  indicate  to  TRAJ 
that  the  augmented  state 
transition  matrix  la  to  be 
integrated  , 

ICALL 

I 

c 

TRAJ  initialization  flag. 
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Local  Variables: 

Variable ; Definition 


NPHI 

Dimension  of  the  augmented  state  transition 

matrix . 

JJO 

0 Logic  control  flag. 

JJ1 

r 

JJ2 

j 

PHI21 

L Temporary  storage  for 

the  ^ matrices  output 

PHI32 

J from  TRAJ . 

THET21 

1 Temporary  storage  for 

A 

the  (3P  matrices  output 

THET32 

J from  TRAJ. 

u r 

Subroutines  Called: 

C0PY,  IC0PY,  IDENT,  IZER0M,  MMAB , MPAK,  TRAJ , 

ZER0M. 

Calling  Subroutines: 

STMTAR,  REFTRJ , NLGUID . 

Common  Blocks: 

C0NST , TIKE,  TRAJ 1 , TRAJ 2 , W0RK,  (BLANK) . 

THC0MP-4 
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Store  partitions  of  the  augmented  state 
transition  matrix,  BLANK,  into  PHI32, 
THET32. 
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THC0MP-5 


2 
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REFSEP-1 


3.7  Subroutine : REFSEP 

Purpose : To  monitor  the  subroutine  flow  in  the  REFSEP  mode 

of  MAPSEP. 

Remarks : A complete  view  of  the  REFSEP  hierarchy  is  revealed 

in  Section  2.3,  page  12-B  of  this  manual. 
Subroutines  Called:  DATREF,  TRAK 

Calling  Subroutines:  MAPSEP 
Logic  Flow:  See  macrologic  listing 


p 
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3.7.1  Subroutine:  DATREF 

Purpose : To  initialize  REFSEP  parameters  and  the  trajectory  propagator. 

Rema  rkjs  ♦ Proper  initialization  of  the  scheduler  requires  two  consecutive 
calls  to  subroutine  SCHED,  Also,  TRAJ  is  called  only  to  in- 
ialize  parameters  not  to  propagate  the  trajectory. 


Input/Output : 
Variable 

Input/ 

Output 

Argument/ 

Common 

GAINCR 

0 

c ! 

IGA  IN 

0 

c 

NCNTE 

0 

1 

c 

NCNTG 

0 

c 

NCNTP 

0 

c 

NCNTT 

0 

c 

NEIGEN 

0 

c 

NGUID  . 

0 

c 

NPRED 

0 

c 

NTHRST 

0 

c 

I CALL 

0 

c 

INTEG 

0 

c 

KARDS 

I 

c 

Definition 


GODSEP  variables  which  are  de- 
faulted in  DATREF  to  avoid  in- 
correct computations  in  sub- 
routine SCHED.  None  of  these 
variables  is  relevant  to  execu- 
tion of  REFSEP. 


Flag  used  to  initialize  TRAJ. 

Flag  indicating  the'  equations  to 
be  integrated  in  TRAJ. 

Number  of  print  schedule  cards. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

De  f ini tion 

7ABEL 

0 

r: 

Hollerith  names  of  all  possible 
target  parameters. 

ME VENT 

0 

C 

Flag  used  to  set  event  detection 
logic  in  TRAJ  . 

MNEXT 

0 

C 

Next  scheduled  print  code. 

NSCHED 

0 

C 

Number  of  print  schedule  cards. 

TCURR 

0 

c 

Current  trajectory  time. 

TEND 

I 

c 

Trajectory  end  time. 

TFINAL 

0 

c 

Trajectory  end  time. 

TM 

- I 

c 

Time  conversion  constant  (days  to 
seconds) . 

1MNEXT 

0 

c 

Time  of  next  print  code  execution. 

TREF 

0 

c 

Initial  trajectory  time. 

TSTART 

I 

c 

Initial  trajectory  time. 

Local  Variables: 

None 

Subroutines  Called 

* S CHED , 

TRAJ 

Calling  Subroutine 

: REFSEP 

Common  Blocks: 

C0NST, 

TRAJ1, 

EDIT,  L0GIC,  MEASI,  PRINT1I,  SCHEDI,  SCHEDR,  TIME 
TRAJ 2,  TRKDAT,  W0RK 

Logic  Flow: 


See  listing. 
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3 . 7-2A  Subroutine:  DETAIL  (IT) 

Purpose : To  print  trajectory  information  at  the  times  designated  on 

the  formatted  schedule  cards. 

Remarks : The  blocks  of  trajectory  information  to  be  printed  are  cued 

by  the  print  code  which  is  stored  in  the  variable  IT.  A 
discussion  of  the  print  code  may  be  found  in  the  User's 
Manual,  Section  2.5,  page  52-B. 


Input/Output : 
Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

APERT 

I 

C 

Gravitational  acceleration  vectors 
due  to  the  perturbing  bodies. 

AT0T 

I 

C 

Total  differential  acceleration 
vector . 

B 

I 

C 

Magnitude  of  the  B-vector. 

BDR 

I 

C 

B • R 

BDT 

I 

C 

B • T 

B0DY 

I 

C 

Hollerith  label  of  the  planets  in- 
cluded in  the  integration. 

BV 

I 

c 

Unitary  B-vector. 

CA 

I 

c 

Closest  approach  radius  computed 
in  BPLANE. 

ECC 

I 

c 

Eccentricity. 

EP0CH 

I 

c 

Launch  epoch 

FI 

I 

c 

Hyperbolic  anomaly 

IPRI 

I 

c 

Flag  used  to  locate  information 
about  the  primary  body. 

ISTEP 

I 

c 

Number  of  integration  steps  taken. 

IT 

I 

A 

Print  code. 

IIP 

I 

c 

Flag  used  to  locate  information 
about  the  target  body. 
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Input/  Argument/ 


Variable 

Output 

Common 

Definition 

\U  CH 

I 

C 

Blank  common  location  of  the  step 
size  . 

L0CM 

I 

C 

Blank  common  location  of  the  S/C 
mass  . 

L0CYT 

I 

C 

Blank  common  location  of  the 
temporary  integrated  solution. 

MPLAN 

I 

C 

Number  of  bodies  included  in  the 
integration . 

NPRI 

I 

C 

Planet'  code  of  the  primary  body. 

NRECT 

I 

C 

Number  of  rectifications  executed 
during  the  trajectory  integration. 

NTP 

I 

C 

Target  planet  code. 

NTPHAS 

I 

C 

Number  of  the  current  control  phase 

I 

C 

Longitude  of  the  ascending  node. 

PV 

I 

C 

Unitary  peripoint  vector. 

QV 

I 

C 

Unitary  peri-velocity  vector. 

RAD 

I 

c 

Angular  conversion  constant 
(radians  to  degrees). 

SMA 

I 

c 

Semi-major  axis. 

S^IEGA 

I 

c 

Argument  of  periapsis. 

SV 

I 

c 

Unitary  hyperbolic  excess  velocity 
vector. 

TA 

I 

c 

True  anomaly. 

TAIM 

I 

c 

Angle  between  B-veetor  and  T-axfs, 

TCA 

I 

c 

Time  of  closest  approach  computed 
in  BFLANE . 

TCURR 

I 

c 

Current  event  time, 

TEVNT 

I 

c 

Current  trajectory  time. 
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Variable 

Input / 
Output 

Argument/ 

Common 

Definition 

THRACC 

I 

C 

Acceleration  vector  due  to  thrust. 

TM 

I 

C 

Time  conversion  constant  (days  to 
seconds) . 

TSI 

I 

C 

Time  of  SOI  crossing  as  computed 
in  BPLANE . 

VENC 

I 

C 

Reference  conic  position  vector. 

UP 

I 

C 

Position  vectors  of  all  bodies 
included  in  the  integration. 

UREL 

I 

c 

Position  vectors  of  S/C  relative 
to  all  bodies  considered  in  the 
integration. 

UTRUE 

I 

c 

S/C  position  vector  relative  to 
primary  body. 

VCA 

I 

c 

Velocity  at  closest  approach  as 
computed  in  BPLANE . 

VENC 

I 

c 

Reference  conic  velocity  vector. 

VHP 

I 

c 

Magnitudue  of  hyperbolic  excess 
velocity . 

VP 

I 

c 

Velocity  vectors  of  all  bodies  con- 
sidered in  the  integration. 

VREL 

I 

c 

Velocity  vectors  of  S/C  relative 
to  all  bodies  considered  in  the 
integration . 

VTRUE 

I 

c 

S/C  velocity  vector  relative  to 
the  primary  body. 

WV 

I 

c 

Unitary  momentum  vector. 

XINC 

I 

c 

Ecliptic  inclination. 

XMEAN 

I 

c 

Mean  anomaly. 

565 


DETAIL -4 


Local  Variables: 


Variable 

Definition 

AT0TM 

Magnitude  of  total  differential  acceleration 
vector , 

BVEC 

B-vec tor . 

DJ 

Julian  date  of  current  trajectory  time. 

IB0D 

Primary  body  code  for  BPLANE  calculations. 

KRAK 

Intermediate  print  code. 

LB0D 

Location  of  IB0D  in  the  NB  arrav  (i.e. 
IB0D  = NB  (LB0D)). 

PFV 

Peri-point  vector. 

PW 

Peri-velocity  vector. 

DA 

Delta-position  vector  and  delta -velocity 
vector . 

UAH 

Magnitude  of  delta-position  vector. 

UFM 

Heliocentric  position  magnitudes  of  bodies 
considered  in  the  integration. 

UR 

Unitary  position  vector  of  the  S/C  relative 
to  the  primary  body. 

UV 

Unitary  velocity  vector  of  the  S/C  relative 
to  the  primary  body. 

VAH 

Magnitude  of  the  delta-velocity  vector. 

VH 

Hyperbolic  excess  velocity  vector. 

VPM 

Heliocentric  velocity  magnitude  of  bodies 
considered  in  the  integration. 

Subroutines  Called: 

BPLANE , 

C0PY,  PRINTT,  TSCHED,  VP0TV,  UNITV,  VECMAG 

Calling  Subroutine: 

REFSEP 

Common  Blocks: 

(BLANK) 

TRAJ1, 

, C0NICS,  C0NST,  EDIT,  SCHEDR  TARGET,  TIME, 
TRAJ2,  W0RK 

566 


DETAIL- 5 


Logic  Flow: 


DETAIL 


Identify  first 
digit  of  print 
code  (KRAK) 


KRAK 


PRINTT 


Print  standard 
trajectory  data 
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DETAIL -7 


568-B 


3.7. 2-B  Subroutine : 
Purpose : 

Remarks : 


Input/Output : 

Variable 

MTPHAS 

P0LICY 

TPHASE 


PUNCHR- 1 


PUNCHR  (MTPHAS) 

To  punch  the  THRUST  array  (i.e.,  an  array 
in  the  $TRAJ  namelist)  on  cards. 

Each  column  of  the  THRUST  array  represents  a 
thrust  phase  in  the  mission  control  profile. 
Each  time  a phase  change  is  encountered 
during  the  trajectory  integration  of  a 
REFSEP  run  a column  of  the  thrust  profile 
is  punched  on  four  cards  by  subroutine 
PUNCHR.  If  the  shadow  logic  is  being 
executed  in  the  trajectory  propagator,  the 
shadow-in  and  shadow-out  phases  are  also 
punched  on  cards.  Thus,  PUNCHR  provides  a 
convenient  means  of  incorporating  shadow 
phase  changes  in  the  thrust  profile  so  that 
the  shadow  logic  need  not  be  executed  in  future 
GODSEP  error  analysis  runs. 


Input/ 

Output 

Argument/ 

Common 

Definition 

0 

A 

Number  of  the  thrust  phase 
which  will  be  punched. 

I 

C 

Thrust  policy  which  has 
been  suspended  during 
occultation  periods 

I 

C 

The  current  phase  end  time 
(also  the  time  during  trajec- 
tory integration  at  which  the 
columns  of  THRUST  will  be 
punched) 

568-C 


Local  Variables: 
Variable 
ANGLE1 

ANGLE2 

ISHAD0 

Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks : 

Logic  Flow: 


PUNCHR-2 


Definition 

The  initial  in-orbit-plane  angle  (or 
pitch  angle)  which  will  be  effected 
at  the  beginning  of  a shadow-out 
change. 

The  initial  out-of-plane  angle  (or 
yaw  angle)  which  will  be  effected 
at  the  beginning  of  a shadow-out 
phase  change . 

A flag  which  is  set  to  one  to  indicate 
that  the  next  thrusting  phase  will  be 
a shadow-out  phase 


ANGM0D,  COPY,  ZER0M 
PATH 

CONST,  SHADOW,  TRAJ1 , TRAJ2 , W0RK 


See  Listing, 
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3.7.2-C  Subroutine : T0RQUE 

Purpose:  To  compute  and  print  out  supplementary  thrust 

related  data  such  as  solar  array  rotation  angle, 
roll  angle,  thrust  attitude  rates  and  required 
torques  (for  PITCH/YAW  thrust  policies  only) 
Method : Analytical  expressions  dependent  upon  thrust 

policy  are  used  to  compute  attitude  rates  and 
torques.  Roll  angle  and  solar  array  rotation 
( «0  are  given  by 


tan  (roll) 


sin  (yaw)  sin  (pitch) 
cos  (pitch) 


sin  = -cos  (yaw)  sin  (pitch) 

cos  o C - -sin  (roll)  sin  (yaw)  sin 

(pitch)  + cos  (pitch)* 
cos  (roll) 


Input/Output : 
Variable 

Input/ 

Output 

Argument/ 

Common 

DELE 

I 

C 

EZER0 

I 

C 

PHAS 

I 

c 

PITCH 

I 

c 

PITCHI 

I 

c 

R0LLI 

I 

c 

THRUST 

(1 , NTPHAS) 

I 

c 

YAW 

I 

c 

YAW  I 

I 

c 

Definition 

Change  in  eccentric  anomaly. 
Reference  eccentric  anomaly. 
Thrust  control  phase  angles 
Pitch  angle. 

Pitch  moment  of  inertia 
Yaw  moment  of  inertia. 

Thrust  policy. 

Yaw  angle. 

Yaw  moment  of  inertia. 


568 -E 


T0RQUE-2 

Local  Variables: 


Variable 

Definition 

ALPHE 

Solar  array  rotation  angle. 

EA 

Eccentric  anomaly  of  S/C. 

ITYPE 

Thrust  policy  type. 

PD0T 

Pitch  time  derivative. 

PD0T2 

Second  time  derivative  of  pitch. 

PT0RQ 

Pitch  torque. 

RD0T 

Roll  time  derivative. 

R0LL 

Roll  angle. 

RT0RQ 

Roll  torque. 

YD0T 

Yaw  time  derivative. 

YD0T2 

Second  time  derivative  of  yaw. 

YT0RQ 

Yaw  torque. 

Subroutines  Called: 

None . 

Calling  Subroutines: 

DETAIL 

Common  Blocks : 

C0NST, 

ENC0N,  TRAJ1 , TRAJ2,  TRKDAT , W0RK 

Logic  Flow: 

None. 
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3.7.3  Subroutine:  TRAK 


Purpose:  To  control  the  point  to  point  (event  time  to  event 

time)  integration  of  the  trajectory  propagator. 

Remarks l The  event  times  which  are  input  into  the  trajectory 

propagator  are  obtained  from  the  scheduling  subroutine 
SCHED.  After  TRAJ  performs  the  integration  to  the 
desired  event  time,  subroutine  DETAIL  is  called  to 
print  detailed  trajectory  information. 

Input /Output : 


Variable 

Input/ 

Output 

, Argument/ 
Common 

BDR 

0 

C 

BDT 

0 

C 

CA 

0 

C 

ECC 

0 

C 

IST0P 

I 

C 

I TP 

I 

C 

KUT0FF 

0 

C 

LABEL 

I 

c 

L0CM 

I 

c 

NPRI 

1/0 

c 

NTP 

I 

c 

0MEGA 

0 

c 

RAD 

I 

c 

RCA 

0 

c 

SMA 

0 

c 

Definition 

B . R 
B . T 

Closest  approach  radius  as  computed 
in  BPLANE 

Eccentricity 

Desired  trajectory  termination  flag 

Target  body  index  (i.e.  NTP=NE(ITP)) 

Actual  trajectory  termination  flag 

Hollerith  labels  for  terminal  condi- 
tions 

Blank  common  location  of  S/C  mass 

Primary  body  code 

Target  body  code 

Longitude  of  ascending  node 

Angular  conversion  constant  (radians 
to  degrees) 

Radiys  of  closest  approach  computed 
in  TRAJ 

Semi-major  axis 
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Variable 

Input/ 

Output 

Argument / 
Common 

Definition 

S0MEGA 

0 

C 

Argument  of  periapsis 

TA 

0 

c 

True  Anomaly 

TCA 

0 

c 

Time  pf  closest  approach  com- 
puted in  BPLANE 

TCURR 

0 

c 

Current  event  time 

TEVNT 

0 

c 

Next  event  time 

TM 

I 

c 

Time  conversion  constant  (days 
to  seconds) 

TRCA 

0 

c 

Time  of  closest  approach  com- 
puted in  TRAJ 

TSI 

0 

c 

Time  of  S0I  crossing  computed 
in  BPLANE 

TSOI 

0 

c 

Time  of  S0I  crossing  computed 
in  TRAJ 

TSTART 

I 

c 

Trajectory  start  time 

TST0P 

0 

c 

Trajectory  stop  time 

UREL 

0 

c 

Position  vectors  of  S/C  relative 
to  all  bodies  considered  in  the 
integration 

URELM 

0 

c 

Magnitudes  of  UREL  vectors 

VCA 

0 

c 

Velocity  at  closest  approach 

VHP 

0 

c 

Hyperbolic  excess  velocity 

VREL 

0 

c 

Velocity  vector  of  S/C  relative 
all  bodies  considered  in  the  in- 
tegration 

VRELM 

0 

c 

"Magnitudes  of  VREL  vectors 

XICA 

0 

c 

Inclination  of  orbit  relative  to 
target  body 

XINC 

0 

c 

Inclination 

XMEAN 

0 

c 

& 

Mean  anomaly 
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TRAK-3 


Local  Variables: 


Variable 

Definition 

DELT 

Time  between  events 

IST0FN 

Hollerith  labels  of  requested  stopping 
conditions 

JEVNT 

Print  code 

K0FF 

Hollerith  labels  of  actual  stopping 
conditions 

MISS 

Flag  indicating  whether  the  target  body 
is  the  primary  body  at  the  trajectory 
end  time 

Subroutines  Called: 

BPLANE , DETAIL,  SCHED,  TRAJ 

Calling  Subroutine: 

REFSEP 

Common  Blocks: 

(Blank),  C0NST,  EDIT,  EFKEM,  PRINTH,  SCHEDI, 
SCHEDR,  TARGET,  TIME,  TRAJ 1 , TRAJ 2,  W0RK 
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3.7.4  Subroutine 
Purpose : 

Method : 


Input /Output : 
Variable 
ECEQ 

ELVMIN 

GHZER0 

I0BS 

I TP 
MPLAN 

NB 

NSTA 

NTP 

0MEGAG 

PI 

RAD 

STAL0C 


TSCHED 

To  compute  and  print  S/C  tracking  information 

S/C  rise  and  set  times  are  computed  for  a selection 
of  tracking  stations.  The  primary  assumption,  which 
has  been  made  to  simplify  the  computations,  is  that 
the  S/C  moves  very  slowly  across  the  celestial  sphere. 
Thus,  the  rise  and  set  times  are  poor  approximations 
for  near-Earth  orbital  missions. 


Input/ 

Output 


Argument/ 

Common 


Definition 


Equatorial  to  ecliptic  transr 
formation  matrix 

Minimum  elevation  angle 

Greenwich  hour  angle  at  launch 

Index  of  astronomical  observatory 
in  STAL0C 

Index  of  target  planet  in  NB 

Number  of  bodies  considered  in 
the  integration 

Vector  identifying  bodies  con- 
sidered in  the  integration 

Number  of  S/C  tracking  stations 

Target  planet  code 

Earth  rotation  rate 

IT 

Angular  conversion  constant 
(radians  to  degrees) 

Station  location  coordinates 


Current  event  time 


TCURR 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

TM 

I 

C 

Time  conversion  constant  (days 
to  seconds) 

UP 

I 

C 

Heliocentric  positions  of  bodies 
considered  in  the  integration 

UREL 

t 

I 

c 

Position  sectors  of  S/C  rela- 
tive to  bodies  considered  in 
the  integration 

URELM 

I 

c 

Magnitudes  of  UREL  vectors 

VP 

I 

c 

Heliocentric  velocities  of 
bodies  considered  in  the  in- 
tegration 

VREL 

I 

c 

Velocity  vectors  of  S/C  relative 
to  bodies  considered  in  the  in- 
tegration 

VRELM 

Local  Variables: 
Variable 

I 

c 

Magnitudes  of  VREL  vectors 
Definition 

AZMUTH 

Azimuth 

of  S/C  relative  to  the  tracking 

station 


DEC 

ELEV 

GECSTA 

GEQSTA 

GHA 

GHZER0 

LAM  DA 


Declination  of  S/C 
Elevation  of  S/C 

Geocentric  ecliptic  station  coordinates 

Geocentric  equatorial  station  coordinates 

Greenwich  hour  angle 

Greenwich  hour  angle  at  launch 

Right  ascension  nanus  Greenwich  hour 
angle 


RANGE 


S/C  range  from  Earth 
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i 


Variable 

Definition 

RHO 

» 

S/C  range  vector 

RISE  . 

S/C  rise  time  at  each  station 

RRATE 

S/C  range  rate  from  Earth 

RTA 

Right  ascension 

RVIANG 

Range-velocity  included  angle 

SESANG 

Sun-Earth-S/C  angle 

SET 

S/C  set  time  at  each  station 

SINELV 

sin,  (ELV) 

SLAT 

Station  latitude 

STATE 

S/C  equatorial  state 

TM 

Time  conversion  constant  (days  to  seconds) 

TW0PI 

2 x 77- 

UFM  ' 

Magnitude  of  planet  position  vectors 

Subroutines  Called: 

CYEQEC 

, MMATB,  SUB,  UD0TV,  UNITV,  UXV,  VECMAG 

Calling  Subroutine: 

DETAIL 

- 

Common  Blocks: 

CONST, 

EDIT,  SCHEDR,  TIME,  T11AJ1 , TRAJ2 , TRKDAT, 

WORK 

Logic  Flow: 

See  listing 
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